返回顶部

收藏

perl读取excel文件内容

更多

perl读取excel文件,完成基本的读取功能

#!/usr/bin/perl -w
use strict;
use feature 'say';
use Spreadsheet::ParseExcel;  ####excel操作模块

my $parser   = Spreadsheet::ParseExcel->new();  
my $workbook = $parser->parse('12.xls');  ###打开excel文件

if (!defined $workbook) {
    die $parser->error(), ".\\n";
}

my $worksheet = $workbook->worksheet('sheet2');  ###通常excel中可能会有几个工作表,选择一个当前excel的工作表

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);  ###几行几列单元格的值
        say $cell;
    }
}
#该片段来自于http://outofmemory.cn

标签:perl,Excel

收藏

0人收藏

支持

0

反对

0

发表评论