文件读取 utf8 中文乱码？

jenghau

一小段代码，从文件中读取内容，并打印出来。

1. #!/usr/bin/perl
   
2. use utf8;
   
3. use strict;
   
4. binmode(STDOUT,':encoding(utf8)');
   
5. binmode(MYFILE,':encoding(utf8)');#########Point I
   
6. 
   
7. # txt 里面只有一句话：我是中国人  Hello,I'm from China. 文件编码utf8。
   
8. unless(open(MYFILE,"n1.txt"))
   
9. {
   
10.         die ("open the file failed...\n");
    
11. }
    
12. 
    
13. my $line = <MYFILE>;
    
14. print $line;  ##############Question Point？
    
15. 
    
16. my $line2="我是中国人  Hello,I'm from China.";
    
17. print $line2," \n";
    
18. 
    
19. print $line==$line2;
    

复制代码

为什么$line的打印的结果是乱码？ <oint I>的声明似乎不起作用。。。

yybmsrs

utf8下的中文不就是乱码。。。gb2312下才能看中文吧

print encode("gb2312",decode("utf8",$line));

或者

binmode(STDOUT,':encoding(gb2312)');

print decode("utf8",$line);

jenghau

回复 2# yybmsrs


    额不是这个意思。utf8下也可以看中文。我的n1.txt就包含utf-8下的中文。
   你的方式把内容转成gb2312。或许可以，但项目整体都是utf8的。

我感觉是 文件读取进来一开始就没有按utf8编码。

刚刚强制转了一次，结果倒是正常了。

1. 
   
2. Encode::_utf8_on($line);
   
3. print $line;
   

复制代码

但理想的情况是希望做统一的设置，不必每次都自己装换。
binmode（MYFILE,":utf8"） 那句为什么不起作用呢？

yybmsrs

回复 3# jenghau

   用你说的试了下还是乱码  可能是我的环境没配好

    把open MYFILE 放在binmode(MYFILE,':encoding(utf');前面试试

ketos

这个如果在windows下，是否还与cmd.exe的设置有关呢？
即使使用了Encode::_utf8_on($line);，仍然乱码。