使用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 } } }
时间: 2024-11-03 05:21:24