perl 如何打印出中文

54red

my $dir = getcwd;
my $out_file=$dir."\/"."ALL.xls";
print "$out_file\t";
open(OUT,">$out_file");

for my $file(@files)
{   my $str ="哈哈";
        $str = Encode::decode_utf8($str);
        print OUT $str;
        print OUT encode("gb2312",decode("gb2312","疾病相关致病突变\n"));
        print OUT "\t染色体位置\t基因\t外显子\t转录本\t突变\t氨基酸变化\t基因型\t突变ID\tdbSNP\t人群中突变频率\t结果质量\t是否验证\t参考文献\t疾病名称\n";
}
上面用的方法
打印出来都是乱码，请问我该怎么写呢？

MMMIX

回复 1# 54red


    脚本本身和输出都用 UTF-8 编码应该就没问题了.

54red

my $out_file=$dir."\/"."ALL.xls";编码是utf8,用ALL.txt接收结果就是正常的汉字，但是当我用ALL.xls就是乱码，我查了查，xls的编码好像是是gb2312，估计就是这个问题，现在还没找到办法回复 2# MMMIX


   

MMMIX

回复 3# 54red


    用 iconv 做下转码是最简单的. 如果没办法转码, 那就用 PerlIO::encoding, 然后在 open 的时候指定编码.

b114213903

回复 3# 54red


    可以试试模块来写EXCEl文档

1. use Excel::Writer::XLSX;
   
2. use Text::Iconv;
   
3. use Encode;

复制代码

MMMIX

回复 5# b114213903


    一直以为他是读取文本文件呢. Excel 按文本文件的方式读取的话, 不论它里面的文本内容是用的什么编码, 读出来的都只能是乱码.

54red

谢谢，这种方法肯定可行的，就是用那个模块写起来好麻烦啊！回复 5# b114213903


   

54red

我是打算读txt,utf8编码的，然后写成xls,然后发现xls是乱码回复 6# MMMIX


   

MMMIX

回复 8# 54red


    关键是, 你写对了么? Execl 可不是说你把文件后缀弄成 .xls 然后随便往里面写什么都可以, 它是有自己的格式的.

54red

我知道用个模块是可以写成excle的格式，我上面的那个程序应该是不对的，就是强迫改了后缀，不过要是英文的，好像和xls也没区别！以前都是凑合用了！回复 9# MMMIX