如何在Perl中获取PDF文件中的页数？

Question

是否有任何Perl脚本可以读取多个PDF文件并获取其中的页数？

通过使用PDFlib或pdftet.

Answer 1

如何在PDF :: API2中使用Perl？

#!/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";