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(); 

Answer 2

Попробуйте это:

#!/usr/bin/perl -w 

use strict; 
use Spreadsheet::ParseExcel; 

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

if (!defined $workbook) { 
    die $parser->error(), ".\n"; 
} 

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

} 

Answer 3

После прибегая к помощи вокруг, я нашел формат XLSX требует Spreadsheet :: XLSC вместо ParseExcel. Кроме того, функция синтаксического анализа принимает имя файла, тогда нет необходимости в параграфе $ parser-> parse.