perl Spreadsheet::XLSX模块问题

anna_bi

想读取.xlsx文件内容，测试代码如下：

1. #!/usr/bin/perl -w
   
2. #BEGIN{push (@INC,"/ifs4/B2C_NIFTY/USER/quning/bin/perl-5.16/lib","/ifs4/B2C_NIFTY/USER/quning/bin/my_lib/");}
   
3. use strict;
   
4. use warnings;
   
5. 
   
6. #use base 'Spreadsheet::ParseExcel::Workbook';
   
7. #use Archive::Zip;
   
8. use File::Basename;
   
9. use Spreadsheet::XLSX;
   
10. use Encode qw/encode decode/;
    
11. my ($dir)=@ARGV;
    
12. my $xls=basename($dir);
    
13. my $excel = Spreadsheet::XLSX -> new ("$dir/$xls"."_QC.xlsx") or die "Can't read $xls: $!\n";
    
14. #my $workbook = $parser->Parse('$dir/$xls_QC.xlsx');
    
15. for my $sheet (@{$excel->{Worksheet}}){
    
16. printf("Sheet: %s/n", $sheet->{Name});
    
17. }
    

复制代码

运行报错如下：

1. Can't locate Spreadsheet/XLSX.pm in @INC (@INC contains: /usr/lib64/perl5/site_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/site_perl/5.8.8 /usr/lib/perl5/site_perl /usr/lib64/perl5/vendor_perl/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/vendor_perl/5.8.8 /usr/lib/perl5/vendor_perl /usr/lib64/perl5/5.8.8/x86_64-linux-thread-multi /usr/lib/perl5/5.8.8 .) at find_rs.pl line 9.
   
2. BEGIN failed--compilation aborted at find_rs.pl line 9.

复制代码

是此模块没安装，还是依赖的模块没安装，还是其他问题啊，怎样解决啊？求大神赐招