如何在Perl调试器中访问UTF-8命名的变量与哈希键？

在使用UTF-8字符串作为变量名或哈希键的Perl程序中，程序可正常编译运行，但通过perl -d启动调试器后，访问这类变量或哈希键会触发字符识别错误。

最小可复现示例（MWE） #

use strict;

use utf8;
use warnings  qw(FATAL utf8);
use open      qw(:std :encoding(UTF-8));
use charnames qw(:full :short);

my $unité = 125;
my %hash = ( 'Quantité' => 18 );

printf "%d\n", $unité*$unité;
printf "%d\n", $hash{Quantité};

正常运行输出 #

程序直接运行无异常：

$ perl test.pl 
15625
18

调试模式下的错误 #

启动调试器后访问变量触发字符识别错误：

$ perl -d test.pl

Loading DB routines from perl5db.pl version 1.77
Editor support available.

Enter h or 'h h' for help, or 'man perldebug' for more help.

            HistFile = '/home/XXX/.perldb.hist'
Éxécution afterinit
main::(test.pl:10):     my $unité = 125;
  DB<100> n
main::(test.pl:11):     printf "%d\n", $unité*$unité;
  DB<100> p $unité
Unrecognized character \xC3; marked by <-- HERE after T}   $unit<-- HERE near column 120 at (eval 10)[/usr/lib64/perl5/5.38/perl5db.pl:742] line 2.
 at (eval 10)[/usr/lib64/perl5/5.38/perl5db.pl:742] line 2.
        eval 'no strict; ($@, $!, $^E, $,, $/, $\, $^W) = @DB::saved;package main; $^D = $^D | $DB::db_stop;
print {$DB::OUT}   $unité;
' called at /usr/lib64/perl5/5.38/perl5db.pl line 742
        DB::eval called at /usr/lib64/perl5/5.38/perl5db.pl line 3451
        DB::DB called at test.pl line 11

解决方法 #

问题根源是Perl调试器默认未启用UTF-8解析命令输入的功能，导致无法正确识别UTF-8字符，可通过以下方式解决：

方法1：启动调试器时指定UTF-8编码 #

启动调试器时添加-CS参数，强制Perl将标准输入/输出设置为UTF-8编码：

perl -CS -d test.pl

之后在调试器中直接输入p $unité或p $hash{Quantité}即可正常访问。

方法2：调试器中动态设置编码 #

进入调试器后，执行以下命令临时开启UTF-8支持：

DB<1> $DB::IN->encoding('UTF-8'); $DB::OUT->encoding('UTF-8');

执行完成后即可正常访问UTF-8命名的变量和哈希键。

方法3：修改全局调试配置（永久生效） #

在用户主目录下创建或编辑.perldb文件，添加以下内容：

$DB::IN->encoding('UTF-8');
$DB::OUT->encoding('UTF-8');

后续每次启动调试器时都会自动启用UTF-8编码支持。

内容的提问来源于stack exchange，提问作者NdC