Beefy Boxes and Bandwidth Generously Provided by pair Networks
We don't bite newbies here... much

Re: Get PDF page count

by leocharre (Priest)
on Dec 11, 2009 at 16:06 UTC ( #812398=note: print w/replies, xml ) Need Help??

in reply to Get PDF page count

sub pdf_pagecount { scalar @_ or confess('missing arg'); my $count=0; require PDF::API2; require Carp; PDFILE : while( my $abs = shift @_){ -f $abs or Carp::cluck("!-f $abs") and return 0; my $p = PDF::API2->open($abs) or die; my $_count; unless( $_count = $p->pages ){ Carp::cluck("doc $abs had no pagecount?"); next PDFILE; } $count= ($count + $_count); } return $count; }

Arg is abs path to pdf tests for existance returns count of pages. Arg can be list, checks each and warns and returns false on errors.

my $pagecount= pdf_pagecount(’/my/abs/file.pdf’); my $total_pagecount= pdf_pagecount( '/my/abs/file.pdf’, ’/my/abs/file +2.pdf’,);

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://812398]
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (4)
As of 2016-10-25 00:55 GMT
Find Nodes?
    Voting Booth?
    How many different varieties (color, size, etc) of socks do you have in your sock drawer?

    Results (313 votes). Check out past polls.