gbk转UTF8问题

fleung

我想用perl把一个GBK编码的中文TXT文件转换成UTF8编码的TXT文件。

perl程序gbk2utf8.pl如下

1. 
   
2. #!/usr/bin/perl
   
3. use Encode;
   
4. use Encode::CN;
   
5. open(utf8file,">utf8.txt");
   
6. while (<>) {
   
7. print utf8file encode("utf-8",decode("GB2312",$_));
   
8. }
   
9. close(utf8file);
   

复制代码

TXT文件名为01.txt，内容很简单，如下：

1. 
   
2. 星期一
   

复制代码

运行

1. 
   
2. ./gbk2utf8.pl 01.txt
   

复制代码

输出错误：
Wide character in subroutine entry at /usr/lib/perl5/5.8.0/i386-linux-thread-multi/Encode.pm line 154, <> line 1.

还请各位高手指教？

flw

我怀疑你的 01.txt 本来就是 utf8 格式的。

fleung

我用IE打开01.txt文件，在IE中“查看”=》“编码”中选择GB2312，可以正常查看，但是选择“UTF8”显示为乱码。

aaronvox

老贴中有解释 use encoding "utf8",STDOUT=>'gb2312'; 的不知道是否有帮助
搜索下历史