关于excel和中文的问题

zlzty

大家好，我想请问个问题，比如我有一个excel表格



如上图所示：

1. use Spreadsheet::ParseExcel;
   
2. use Encode;
   
3. use strict;
   
4. 
   
5. my $parser = Spreadsheet::ParseExcel->new();
   
6. my $workbook = $parser->parse('ͳ¼Æ³É¼¨.xls');
   
7. 
   
8. if (!defined $workbook )
   
9. {
   
10. die $parser->error(), ".\n";
    
11. }
    
12. 
    
13. for my $worksheet($workbook->worksheets())
    
14. {
    
15. my ($row_min,$row_max) = $worksheet->row_range();
    
16. my ($col_min,$col_max) = $worksheet->col_range();
    
17. for my $row($row_min..$row_max)
    
18. {
    
19.   for my $col($col_min..$col_max)
    
20.   {
    
21.    my $cell = $worksheet->get_cell($row,$col);
    
22.    next unless $cell;
    
23.    my $a = $cell->value();
    
24.    $a = encode('gbk',decode('gbk',$a));
    
25.    print $a."\n";
    
26.   }
    
27. }
    
28. }

复制代码

图中第一行的都是中文，我需要怎么样解码输出print的时候不是乱码，还有我需要把这些中文作为键存储到hash中去，这样的话是不是也需要改变编码形式？我不太明白编码。。希望大家给点意见。谢谢

xiumu2280

$a = encode('gbk',decode('gbk',$a));
变成 $a = decode('gbk',$a);试试看

zlzty

先谢谢你的回答，不过不知道什么原因改成那样好像一直会报一个错误如下图：


这个我问题我换了一个方法，好像是解决了，我先把字符串$a split了然后把每个元素都在encode成gbk的编码，就能正常输出了。。
回复 2# xiumu2280


   

张琦得得

直接换成 $a = encode('gb2312',$a);就可以了

zlzty

谢谢，我试试回复 4# 张琦得得


   

mcshell

搜FLW的excel乱码终极解决方案{:3_183:}

zlzty

Thanks,我去看看回复 6# mcshell