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

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

  1. #!/usr/bin/perl -w 
  2. use strict; 
  3. use warnings; 
  4. use Data::Dumper; 
  5. use Spreadsheet::Read; 
  6. use Spreadsheet::XLSX; 
  7. #读取文件 
  8. my $book  = ReadData ("./host_list.xlsx"); 
  9. #定义列名称,execl中是以字母为列标示符的,如B1,表示第一行B列。这里只考虑A - Z列的情况,多余这么多列的情况不考虑。 
  10. my @ch = ('A' .. 'Z'); 
  11. #获取有效的行数和列数 
  12. my $maxrow = $book ->[1]{'maxrow'}; 
  13. my $maxcol = $book ->[1]{'maxcol'}; 
  14.  
  15. for(my $i = 1;$i < $maxrow;$i++) 
  16.     for(my $j = 0;$j < $maxcol;$j++) 
  17.     { 
  18.         my $value = $ch[$j].$i; 
  19.         my $result=$book -> [1]{"$value"}; 
  20.         print $result if($result); 
  21.     print " "
  22.     } 
  23.     print "\n"

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