excel - Perl Spreadsheet::ParseExcel 无法解析并返回 undef

Question

刚安装Spreadsheet::ParseExcel模块，但有问题。看到一些相关的问题，但不完全相同。

#!/usr/bin/perl -w                                                                                        

use strict;
use warnings;

use Spreadsheet::ParseExcel;
use Data::Dumper;

my $bill = $ARGV[0] || die "Usage: $0 bill.xlsx\n";
my $parser = Spreadsheet::ParseExcel->new();
my $workbook = $parser->parse('Book2.xlsx');
print Dumper $workbook;

for my $worksheet ( $workbook->worksheet() ) { }

当我运行 perl 脚本时，出现以下错误:

Can't call method "worksheet" on an undefined value at read.bill.xlsx.pl line 15.

所以我甩了 $workbook ，并得到:

$VAR1 = undef;

转储器解析器显示一些数据。这意味着 $parser->parse失败的。有人知道为什么吗？谢谢。

Answer 1

如documentation suggest , 你必须测试 parse()返回 undef并检查错误信息，

my $workbook = $parser->parse('Book2.xlsx') // die $parser->error();