perl - PerlでPDFファイルのページ数を取得するにはどうすればよいですか?

Question

複数の PDF ファイルを読み取り、その中のページ数を取得する Perl スクリプトはありますか?

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";