Perl用open打开文件,中文部分是乱码

linxiaolong0044

各位大哥,我使用perl的open来打开文件,中文部分是乱码.
代码就是open文件,如下:
my $file="dt.xml";
open my $fh,"$file" or die "can not open $file\n";
while(my $line = <$fh> {
print "$line";
#...;
}
我觉得是编码不对,可是又不太懂怎么改,才开始使用perl的新手..
看了一些网上的方法,比如open my $fh, "<:encoding(utf", "$file" or die; 以及 open(FH, "<:utf8", "$file" or die $!; ..
但是好像不管用..求指教帮忙解决下,感激不尽...

另外用xml模块,读取是正常中文的,但是我想用open来进行读取.


附件解压后,即为要打开的文件,
dt.xml.gz (2.54 MB, 下载次数: 3)

2012-12-08 16:13 上传

点击文件名下载附件

linxiaolong0044

哪位大哥帮帮忙..我把程序测试代码也给附上,不用手动敲了:
#!/usr/bin/perl
use strict;
use warnings;

my $file="dt.xml";
open my $fh,"$file" or die "can not open $file\n";
my $num=0;
while(my $line = <$fh>{
print "$line";
return if ($num++==55);
}
close ($fh);

#--------------------------------
直接执行就能看到效果了.. 中文部分为乱码..
我在网上找了半天..实在不知道怎么搞了..{:3_201:}

zhlong8

显示乱码是终端的问题， print 时需要把 unicode 转为终端所使用的编码，如果是 windows 终端默认是 GBK

1. use Encode;
   
2. 
   
3. open my $fh, '<:utf8', 'dt.xml' or die $!; # 必须设置 :utf8 否则下面 encode 结果不正确
   
4. 
   
5. while (<$fh>) {
   
6.     print encode 'GBK', $_ ;
   
7. }

复制代码

mcshell

以前讨论过这个问题
http://bbs.chinaunix.net/thread-1857627-1-4.html