關(guān)于excel和中文的問題

zlzty

大家好，我想請(qǐng)問個(gè)問題，比如我有一個(gè)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. }

復(fù)制代碼

圖中第一行的都是中文，我需要怎么樣解碼輸出print的時(shí)候不是亂碼，還有我需要把這些中文作為鍵存儲(chǔ)到hash中去，這樣的話是不是也需要改變編碼形式？我不太明白編碼。。希望大家給點(diǎn)意見。謝謝

xiumu2280

$a = encode('gbk',decode('gbk',$a));
變成 $a = decode('gbk',$a);試試看

zlzty

先謝謝你的回答，不過不知道什么原因改成那樣好像一直會(huì)報(bào)一個(gè)錯(cuò)誤如下圖：


這個(gè)我問題我換了一個(gè)方法，好像是解決了，我先把字符串$a split了然后把每個(gè)元素都在encode成gbk的編碼，就能正常輸出了。。
回復(fù) 2# xiumu2280


   

張琦得得

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

zlzty

謝謝，我試試回復(fù) 4# 張琦得得


   

mcshell

搜FLW的excel亂碼終極解決方案{:3_183:}

zlzty

Thanks,我去看看回復(fù) 6# mcshell