Spreadsheet::Read的简单使用

  该模块不能单独使用，需要结合一些模块来使用，在cpan里的描述是这样的。

 

 

 

 

 

 

 

  这里需要使用这个模块来读取excel的文件，由于是xlsx格式的，所以，还得需要预先安装Spreadsheet::XLSX这个模块。代码如下：

#!/usr/bin/perl -w
use strict;
use warnings;
use Data::Dumper;
use Spreadsheet::Read;
use Spreadsheet::XLSX;
#读取文件
my $book  = ReadData ("./host_list.xlsx");
#定义列名称，execl中是以字母为列标示符的，如B1，表示第一行B列。这里只考虑A - Z列的情况，多余这么多列的情况不考虑。
my @ch = ('A' .. 'Z');
#获取有效的行数和列数
my $maxrow = $book ->[1]{'maxrow'};
my $maxcol = $book ->[1]{'maxcol'};

for(my $i = 1;$i < $maxrow;$i++)
{
    for(my $j = 0;$j < $maxcol;$j++)
    {
        my $value = $ch[$j].$i;
        my $result=$book -> [1]{"$value"};
        print $result if($result);
    print " ";
    }
    print "\n";
}

上面的代码会把excel的sheet1的全部内容输出来。

 

 

 

 

本文出自 “Linux的生活” 博客，谢绝转载！