perl - 如何在 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";