装了Encode::HanExtra,仍提示gb18030为未知编码

perlnewbie

看了下Encode::HanExtra的说明，只要装了这模块，使用encode的时候，就能使用gb18030了。
为何我这依然提示

1. Unknown encoding 'gb18030' at mb_gb18030.pl line 8

复制代码

我的代码：

1. use Encode;
   
2. use FileHandle;
   
3. 
   
4. my $fh =FileHandle->new($ARGV[0]);
   
5. while ( my $line=$fh->getline ) {
   
6.         print encode("utf8",decode("gb18030",$line));
   
7. }
   
8. undef $fh;

复制代码

Kitaisky

回复 1# perlnewbie


    use Encode::HanExtra;    #Explicitly

perlnewbie

这个懒就不偷了。

但转换GB18030字符为UTF8，出现错误了----------无法正常显示了。

Kitaisky

# print encode("utf8",decode("gb18030",$line));

binmode (STDOUT, ":utf8");

#decode("gb18030",$line) is already perl internal utf8, you are double-encoding them...

print encode("unicode",decode("gb18030",$line));