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","疾病相關(guān)致病突變\n"));
        print OUT "\t染色體位置\t基因\t外顯子\t轉(zhuǎn)錄本\t突變\t氨基酸變化\t基因型\t突變ID\tdbSNP\t人群中突變頻率\t結(jié)果質(zhì)量\t是否驗證\t參考文獻\t疾病名稱\n";
}
上面用的方法
打印出來都是亂碼，請問我該怎么寫呢？

MMMIX

回復(fù) 1# 54red


    腳本本身和輸出都用 UTF-8 編碼應(yīng)該就沒問題了.

54red

my $out_file=$dir."\/"."ALL.xls";編碼是utf8,用ALL.txt接收結(jié)果就是正常的漢字，但是當(dāng)我用ALL.xls就是亂碼，我查了查，xls的編碼好像是是gb2312，估計就是這個問題，現(xiàn)在還沒找到辦法回復(fù) 2# MMMIX


   

MMMIX

回復(fù) 3# 54red


    用 iconv 做下轉(zhuǎn)碼是最簡單的. 如果沒辦法轉(zhuǎn)碼, 那就用 PerlIO::encoding, 然后在 open 的時候指定編碼.

b114213903

回復(fù) 3# 54red


    可以試試模塊來寫EXCEl文檔

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

復(fù)制代碼

MMMIX

回復(fù) 5# b114213903


    一直以為他是讀取文本文件呢. Excel 按文本文件的方式讀取的話, 不論它里面的文本內(nèi)容是用的什么編碼, 讀出來的都只能是亂碼.

54red

謝謝，這種方法肯定可行的，就是用那個模塊寫起來好麻煩��！回復(fù) 5# b114213903


   

54red

我是打算讀txt,utf8編碼的，然后寫成xls,然后發(fā)現(xiàn)xls是亂碼回復(fù) 6# MMMIX


   

MMMIX

回復(fù) 8# 54red


    關(guān)鍵是, 你寫對了么? Execl 可不是說你把文件后綴弄成 .xls 然后隨便往里面寫什么都可以, 它是有自己的格式的.

54red

我知道用個模塊是可以寫成excle的格式，我上面的那個程序應(yīng)該是不對的，就是強迫改了后綴，不過要是英文的，好像和xls也沒區(qū)別！以前都是湊合用了！回復(fù) 9# MMMIX