Ошибка Perl - нельзя вызвать "getPageContent" для неопределенного значения?

Question

Привет я пытаюсь извлечь содержимое файла PDF, но я сталкиваюсь с вышеуказанной проблемой, мой код

use PDF;

use CAM::PDF;

use CAM::PDF::PageText;

my $file = "s.pdf"; 
my $pdf = CAM::PDF->new($file); 
 my $pageone_tree = $pdf->getPageContent(1);
 print CAM::PDF::PageText->render($pageone_tree);

Я получаю ошибку " getPageContent(1)" здесь. что пошло не так в моем коде

Answer 1

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

my $pageone_tree = $pdf->getPageContentTree($_);