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

Question

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

通过使用 PDFlib 或 pdftet。

Answer 1

只使用 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";