Не удается вызвать метод Worksheet для неопределенного значения

Question

use strict;
use warnings;

use Spreadsheet::ParseExcel;
use Spreadsheet::ParseExcel::SaveParser;

my $excel_file_name = $ARGV[0];
my $parser          = Spreadsheet::ParseExcel::SaveParser->new();
my $workbook_orig   = $parser->Parse($excel_file_name);

# We will edit column 7 of the first worksheet.
my $worksheet = $workbook_orig->worksheet(0);
my $EDIT_COL = 6;

my ($row_min, $row_max) = $worksheet->row_range();
for my $r ($row_min .. $row_max){
    my $cell = $worksheet->get_cell($r, $EDIT_COL);
    unless (defined $cell){
        next; # Modify as needed to handle blank cells.
    }
    my $val = $cell->value . '_append_text';
    $worksheet->AddCell( $r, $EDIT_COL, $val, $cell->{FormatNo} );
}

# You can save the modifications to the same file, but when
# you are learning, it's safer to write to a different file.
$excel_file_name =~ s/\.xls$/_new.xls/;
$workbook_orig->SaveAs($excel_file_name);

Моя реализация выше выдает мне сообщение об ошибке «Не удается вызвать метод Worksheet для неопределенного значения» в строке ниже.Я пытаюсь прочитать файл Excel и проанализировать его, чтобы позже добавить к нему дополнительный контент.Я делаю это с помощью модуля ParseExcel. Если есть какие-либо более эффективные способы сделать это или какие-либо указания о том, почему я получаю ошибку, любая помощь будет принята с благодарностью.Спасибо.

my $worksheet = $workbook_orig->worksheet(0);

Answer 1

Parse возвращает undef при ошибке, и вы не проверяете это.Попробуйте:

my $workbook_orig   = $parser->Parse($excel_file_name);
unless ($workbook_orig) {
    die "Got error " . $parser->error() . " parsing spreadsheet.";
}

, чтобы увидеть, какую ошибку он получает, чтобы вы могли решить, как ее исправить.