PDF dosyasındaki sayfa sayısını Perl'de nasıl edinebilirim?

Question

Birden fazla PDF dosyasını okumak ve sayfa sayısını almak için herhangi bir Perl betiği var mı?

PDFlib veya pdftet kullanarak.

Answer 1

Perl'i sadece PDF :: API2 ile kullanma hakkında ne düşünüyorsunuz?

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