读取csv文件中文乱码

nixiaoweihunter

RTRT，有什么好的方法读取csv文件？

yestreenstars

我上次是先以文本文档的方式打开，然后转换一下编码，再用excel打开，就没乱码了

q1208c

用 Encode 转换一下.

nixiaoweihunter

能给个代码看一下嘛？

q1208c

回复 4# nixiaoweihunter

我很久没搞过了. google 一下 perl encode 看看.


   

zhlong8

乱码情况有很多种，原因只有一个就是期望和输入的字符编码不同。你能把你的环境、数据编码还有代码贴出来吗?

nixiaoweihunter

文件见附件中的，直接读取就是乱码，不知道怎么转码,是unicode编码的csv文件

open(FH,"<111.csv") or die $!;

while(<FH>){
        print $_;
        sleep(1);
}

输出：.O}Y        NLu

zhlong8

回复 7# nixiaoweihunter

正确的步骤应该是
utf16-le/utf8/gbk...编码文件 -> perl读取字节序列（bytes） -> decode为unicode字符串给 perl处理（非ascii的都必须这一步） -> encode为终端编码的字节序列(根据系统决定是GBK/utf8/...内部用的是utf8所以终端如果是utf8就可以省掉这一步了)


你做的是 utf16-le 的字节序列直接输出到别的编码的终端上，对应到了错误的字符上自然是乱码

iamlimeng

告诉你一个一劳永逸的方法，一般人我不告诉他，你懂的！

操作CSV还是用模块比较好Text::CSV。

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Encode qw /from_to/;
   
6. use Encode::Detect::CJK qw(detect);
   
7. 
   
8. open(FH,"111.csv");
   
9. while (<FH>) {
   
10.         chomp;
    
11.         my $charset = detect($_);
    
12.         from_to($_,$charset,'gbk');
    
13.          print "$_\n";
    
14. }

复制代码

nixiaoweihunter

多谢2位大师