返回顶部

收藏

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

相关聚客文章
  1. ritesh kumar (norepl 发表 2012-11-17 00:15:42 Importing the csv data by browsing and uploading c
  2. coder4 发表 2013-06-26 15:19:08 Perl中如何让Hash的值为数组
  3. crazyFish 发表 2011-10-21 13:46:58 excel中vlookup的使用
  4. 博主 发表 2010-04-14 16:00:00 apache防盗链(mod_perl试用)
  5. 博主 发表 2011-11-03 16:00:00 用perl调用新浪微博API小实验
  6. love冥天 发表 2014-02-24 06:11:08 php更新修改excel中的内容
  7. 博主 发表 2011-11-17 02:17:00 如何从EXCEL和SPSS导入数据到R
  8. 博主 发表 2013-03-28 07:28:00 Perl入门实战:JVM监控脚本(下)
  9. targetkiller 发表 2013-11-06 05:56:00 使用skydrive,丰富你的展示
  10. 博主 发表 2014-03-08 00:57:00 hr in Perl
  11. SeisMan 发表 2013-10-13 01:08:00 实现进度条的模块
  12. 博主 发表 2014-08-20 14:09:00 asp 网址迁移对 excel 组件的调用

发表评论