Perl读取Excel文件并解决中文乱码问题

Posted

tags:

篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了Perl读取Excel文件并解决中文乱码问题相关的知识,希望对你有一定的参考价值。

使用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文件并解决中文乱码问题的主要内容,如果未能解决你的问题,请参考以下文章

php读取csv文件时 用phpexcel很慢 用fgetcsv()函数中文乱码 请问还有啥excel库或函数方法来读csv文件吗

如何通过工作表名称在 Perl 中读取 Excel 文件

excel2007打开导出的.csv文件出现中文乱码,求高手指点

Perl学习15之perl读excel表格

excel文件出现乱码的原因及解决方法

java写的excel文件转csv文件脚本遇到中文就会乱码