【Perl】读取EXCEL

最新推荐文章于 2024-09-09 15:40:53 发布

lbt_dvshare

最新推荐文章于 2024-09-09 15:40:53 发布

阅读量1.9k

点赞数

分类专栏： perl

本文链接：https://blog.csdn.net/lbt_dvshare/article/details/97615219

版权

ParseExcel只支持xls 文件，无法支出xlsx.

#!/usr/bin/perl -w
 
use strict;
use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::FmtUnicode;
 
#讀取Excel 
my $parser   = Spreadsheet::ParseExcel->new();
##对Excel内中文字符进行字符编码指定，防止乱码
my $formatter = Spreadsheet::ParseExcel::FmtUnicode->new(Unicode_Map=>"CP936");    
my $workbook = $parser->parse('Demo_Excel.xls', $formatter);
 

 
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_max ) {
        for my $col ( $col_min .. $col_max ) {
 
            my $cell = $worksheet->get_cell( $row, $col );
            next unless $cell;
 
            print "Row, Col    = ($row, $col)\n";
            print "Value       = ", $cell->value(),       "\n"