Beefy Boxes and Bandwidth Generously Provided by pair Networks
XP is just a number

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’,);

Comment on Re: Get PDF page count
Select or Download Code

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 having an uproarious good time at the Monastery: (6)
As of 2015-11-28 14:12 GMT
Find Nodes?
    Voting Booth?

    What would be the most significant thing to happen if a rope (or wire) tied the Earth and the Moon together?

    Results (742 votes), past polls