+ -
当前位置:首页 → 问答吧 → perl对excel的读取

perl对excel的读取

时间:2010-10-19

来源:互联网

昨天浏览了一下perl的基本语法
今天查了一下perl关于excel的模块和一些例子
我想实现在linux下对excel进行可筛选的读写操作
现在遇到一个问题的看了下例子都是对单元格cell的操作
我想问如何对excel中一行一行的进行读取到一个数组里面~而不是针对单元格~

作者: zorro大侠   发布时间: 2010-10-19

回复 zorro大侠


    刚刚看到这种方法好像可以~用push
测试了下
  1. for my $worksheet ( $workbook->worksheets() ) {

  2.     print "Worksheet name: ", $worksheet->get_name(), "\n\n";

  3.     my ( $row_min, $row_max ) = $worksheet->row_range();
  4.     my ( $col_min, $col_max ) = $worksheet->col_range();
  5.     my @aaa;

  6.     for my $row ( $row_min .. $row_max ) {
  7.         for my $col ( $col_min .. $col_max ) {
  8.             my $cell = $worksheet->get_cell( $row, $col );
  9.             next unless $cell;
  10.         if ( $cell->value()){
  11.             push  @aaa,$cell->value();
  12.          }
  13.         }
  14.        print "=== ",@aaa ,"\n";
  15.        @aaa=();
  16.    
  17.     }
  18. }
复制代码
  1. [root@testmachine-238-125 examples]# ./a_simple_parser.pl a.xls
  2. Worksheet name: Sheet1

  3. === 123理解进来经历
  4. === 145
  5. === 583
  6. Worksheet name: Sheet2

  7. Worksheet name: Sheet3
复制代码
想问下各位大牛有没有其他的方法指导下

作者: zorro大侠   发布时间: 2010-10-19

用 map 啊

作者: zhlong8   发布时间: 2010-10-19