Как я могу получить количество страниц в файле PDF в Perl?

Есть ли какой-нибудь сценарий Perl для чтения нескольких файлов PDF и получения в нем количества страниц?

С помощью PDFlib или pdftet.


pdf perl pdflib
person Anil    schedule 19.12.2008    source источник

Ответы (1)


arrow_upward
9
arrow_downward

Как насчет того, чтобы просто использовать Perl с PDF::API2?

#!/usr/bin/perl

use PDF::API2;

foreach $doc (@ARGV)
{
    $pdf = PDF::API2->open($doc);
    $pages = $pdf->pages;
    $totalpages += $pages;

    print "$doc contains $pages pages\n";
}

print "Total pages of pdf pages = $totalpages\n";
person shank    schedule 19.12.2008