Ошибки чтения PDF с помощью CAM-PDF: использование неинициализированного значения в добавочной <+> строке 667

Question

Я новичок в Perl, и я пытаюсь прочитать PDF-файл, используя CAM::PDF вот мой код:

Когда я пытаюсь запустить это в командной строке, я получаю следующие ошибки:

"Использование неинициализированного значения дополнительно <+> в C:/Strawberry/perl/site/lib/CAM/PDF.pm строка 667... substr вне str в C: / Strawberry / perl / site / lib / CAM / PDF.pm строка 657 ... (в конце)... "Неверный запрос для объекта 60 в позиции 0 в файле. Невозможно вызвать метод"getPageContentTree"для неопределенного значения в C:...

Странно то, что у меня есть точно такие же файлы и программа на отдельном компьютере, который прекрасно работает. Он печатает все отлично, где этот компьютер не может.

Я попытался переустановить CAM::PDF и переустановить cpan, Переустановка действительно не удалась по некоторым причинам. Спасибо за помощь.

#!/usr/bin/perl

use strict;
use warnings;

use CAM::PDF;
use CAM::PDF::PageText;

#in cmd: courts.pl samplePDF.pdf

my $filename = shift || die "Supply pdf on command line\n";

my $pdf = CAM::PDF->new($filename);


#print text_from_page(1);

my $string = text_from_page(1);
#print $string;

$string =~ s/\b \b//g;
print $string;

open(my $fh, '>', 'reports.txt');
print $fh "$string";
close $fh;
print "done\n";

sub text_from_page {
my $pg_num = shift;

return
CAM::PDF::PageText->render($pdf->getPageContentTree($pg_num));
}