¿Cómo puedo obtener el número de páginas en un archivo PDF en Perl?

Question

¿Hay alguna secuencia de comandos de Perl para leer múltiples archivos PDF y obtener el número de páginas en él?

Al usar PDFlib o pdftet.

Answer 1

¿Qué tal si usamos Perl con el 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";