Perl读取Excel文件并解决中文乱码问题
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;$rowvalue();
$a=decode("gb2312",$a);
#do something
}
}
}
页:
[1]