如何獲得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";