Perl讀取Excel檔案並解決中文亂碼問題

標籤：excel   中文亂碼   perl   

使用CPAN中的Spreadsheet::ParseExcel模組讀取Excel檔案中的內容，當遇到中文亂碼問題時，使用Spreadsheet::ParseExcel::FmtUnicode模組重新編碼，當將中文賦值給變數時，用Encode模組經GB2312解碼即可。

use strict;  use Spreadsheet::ParseExcel;  use Spreadsheet::ParseExcel::FmtUnicode;use Encode;     my $oFmtC=Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");  my $parser=Spreadsheet::ParseExcel->new();  my $workbook=$parser->parse(‘test.xls‘,$oFmtC);     if (!defined $workbook){      die $parser->error(),".\n";  }     for my $worksheet ($workbook->worksheets()){      my ($row_min,$row_max)=$worksheet->row_range();      my ($col_min,$col_max)=$worksheet->col_range();      for (my $row=$row_min;$row<=$row_max;$row++){         for (my $col=$col_min;$col<=$col_max;$col++){              my $cell = $worksheet->get_cell($row,$col);             $a=$cell->value();              $a=decode("gb2312",$a);            #do something         }      }  }

本文出自 “如意靈臨” 部落格，請務必保留此出處http://417722381.blog.51cto.com/7856838/1880722

Perl讀取Excel檔案並解決中文亂碼問題