Perl + Unicode：“宽字符串”错误

Question

我在 Windows 7 上运行 Active Perl 5.14。 我正在尝试编写一个程序，该程序将读入转换表，然后处理文件并用其他模式替换某些模式 - 以上所有内容均采用 Unicode (UTF-8) 格式。程序的开头是这样的：

#!/usr/local/bin/perl
# Load a conversion table from CONVTABLE to %ConvTable.
# Then find matches in a file and convert them.
use strict;
use warnings;
use Encode;
use 5.014;
use utf8;
use autodie; 
use warnings    qw< FATAL  utf8     >;
use open        qw< :std  :utf8     >;
use charnames   qw< :full >;
use feature     qw< unicode_strings >;

my ($i,$j,$InputFile, $OutputFile,$word,$from,$to,$linetoprint);
my (@line, @lineout); 
my %ConvTable;    # Conversion hash
print 'Conversion table: opening file: E:\My Documents\Perl\Conversion table.txt'."\n";
my $sta= open (CONVTABLE, "<:encoding(utf8)", 'E:\My Documents\Perl\Conversion table.txt');
binmode STDOUT, ':utf8';    # output should be in UTF-8
# Load conversion hash
while (<CONVTABLE>) {
    chomp;
    print "$_\n"; # etc ...
# etc ...

原来，此时它说：

wide character in print at (eval 155)E:/Active Perl/lib/Perl5DB.pl:640]line 2, <CONVTABLE> line 1, etc...

这是为什么呢？我想我已经完成并实施了正确处理 Unicode 字符串、解码和编码为 UTF-8 的所有必要规定？ 以及如何修复它？

蒂亚·

海伦

Answer 1

Perl 调试器有自己的输出句柄，与 STDOUT 不同（尽管它最终可能会到达与 STDOUT 相同的位置）。您还需要在脚本开头附近执行类似的操作：

binmode $DB::OUT, ':utf8' if $DB::OUT;

Answer 2

我怀疑问题出在您没有向我们展示的代码的某些部分。我的怀疑基于以下事实：

1. 您引用的错误消息显示at (eval 155)。您的代码中没有 eval。

2. 当我运行上面的代码时，即使输入包含 Unicode 字符，不会产生“宽字符”警告。我可以让它生成一个的唯一方法是注释掉 use open 行和 binmode STDOUT 行。

诚然，我的测试环境与你的并不完全相同：我在 Linux 上，我的 Perl 只有 v5.10.1，这意味着我必须降低版本要求并关闭 unicode_strings功能（并不是您实际使用它）。不过，我非常怀疑问题不在您发布的代码中。