裝了Encode::HanExtra,仍提示gb18030為未知編碼

perlnewbie

看了下Encode::HanExtra的說明，只要裝了這模塊，使用encode的時(shí)候，就能使用gb18030了。
為何我這依然提示

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

復(fù)制代碼

我的代碼：

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;

復(fù)制代碼

Kitaisky

回復(fù) 1# perlnewbie


    use Encode::HanExtra;    #Explicitly

perlnewbie

這個(gè)懶就不偷了。

但轉(zhuǎn)換GB18030字符為UTF8，出現(xiàn)錯(cuò)誤了----------無(wú)法正常顯示了。

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));