从Excel导出中文数据乱码的奇怪问题

iamlimeng

我要将Excel文件中的数据导出为CSV（TAB分隔）文本文件，以下是代码，直接运行能正确输出结果，奇怪的是用PDK打包后，输出的中文全是乱码，请高手帮忙解决。

PERL的中文乱码问题实在是太普遍了，我就碰到很多次，每次都需要用不同的，很奇怪的办法才能解决，PERL就不能搞容易些吗？

1. #!/usr/bin/perl
   
2. 
   
3. use strict;
   
4. use warnings;
   
5. use Spreadsheet::ParseExcel;
   
6. use Spreadsheet::ParseExcel::FmtUnicode;
   
7. 
   
8. my $file = "test.xls";
   
9. open FH, ">out.txt";
   
10. foreach (read_excel($file)) {
    
11.         print FH "$_\n" ;
    
12. }
    
13. close FH;
    
14. 
    
15. sub read_excel {
    
16.         my $file = shift;
    
17.         my $oExcel = new Spreadsheet::ParseExcel;
    
18.         my $code = "GB2312";
    
19.         my $oFmtJ = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map =>$code);
    
20.         my $oBook = $oExcel->Parse( $file, $oFmtJ );
    
21.         my $sheet = $oBook->{Worksheet}[0];
    
22.         my ( $minRow, $maxRow ) = $sheet->row_range();
    
23.         my ( $minCol, $maxCol ) = $sheet->col_range();
    
24.         my @datas;
    
25.         for my $row (0..$maxRow) {
    
26.                  my @row_data;
    
27.                  foreach my $col (0 .. $maxCol){
    
28.                           my $cell = $sheet->get_cell($row,$col);
    
29.                           next unless $cell;
    
30.                           push(@row_data,$cell->value);
    
31.                  }
    
32.                  push(@datas,join("\t",@row_data));
    
33.         }
    
34.          return @datas;
    
35. }

复制代码

iamlimeng

回复 2# yiten


    你打包后输出的中文正常吗？我试了一下，还是不行，请指教！

iamlimeng

回复 4# Kitaisky


    谢谢，但打包后运行依然是乱码！

iamlimeng

回复 6# x9x9


    非常感谢，我的问题也被终极了！同时也感谢楼上两位。