Comment puis-je obtenir le nombre de pages dans un fichier PDF en Perl?

Question

Existe-t-il un script Perl pour lire plusieurs fichiers PDF et obtenir le nombre de pages?

En utilisant PDFlib ou pdftet.

Answer 1

Que diriez-vous juste d'utiliser Perl avec le 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";