【发布时间】:2011-02-17 19:09:35
【问题描述】:
我不知道为什么这段代码不起作用:
use strict;
use warnings;
use Encode qw/decode/;
my $entity_unicode = "00A0";
$entity_unicode = decode("UTF-16", pack('H4', $entity_unicode));
print $entity_unicode, "\n";
它打印出:“UTF-16:Unrecognized BOM a0 at /usr/lib/perl/5.10/Encode.pm line 174.”。
【问题讨论】: