我的Perl源代码包含像这样的UTF-8内容
# Einige Konstanten für reguläre Ausdrücke, um die Lesbarkeit zu
# erhöhen.
my $Marker = qr/[.·<>=-]/x;
my $Buchstabe = qr/(?: [^.·<>=-] | ch)/x;
my $Vokal = qr/[aeiouäëïöüy]/x;
# Konsonant: nicht Vokal, aber Buchstabe.
my $Konsonant = qr/(?! $Vokal ) $Buchstabe/x;
但是,hdb调试器浏览器窗口显示的代码是latin 1编码的:
查看HTML源代码,我发现它是正确地用UTF-8编码的;这意味着从Perl的调试接口到HTML页面的某个地方使用了错误的编码。
请注意,perl -d
工作正常,并在我的GNU/Linux KDE终端中正确显示源代码。
我该怎么解决这个问题?有配置文件吗?这是一个bug吗?我使用的是Devel::hdb
版本0.25。
1条答案
按热度按时间cu6pst1q1#
第27行似乎缺少了
decode_utf8()
:如果我把这一行改成
在此之前,从Encode导入
decode_utf8
,得到以下输出: