in reply to PDF GetInfo(
Another solution - if your machine have Acrobat (exchange) you can use Win32::OLE module. It is not enough to have Acrobat Reader installed in this case :(
Acrobat SDK documentation have information about how automate it via OLE.use strict; use Win32::OLE; use Win32::OLE::Const; my $abat = Win32::OLE->new('AcroExch.App'); my $abdoc = Win32::OLE->new('AcroExch.AVDoc'); $abdoc->Open('d:\Documentation\perl\xtk.pdf','d:\Documentation\perl\xt +k.pdf'); my $pddoc = $abdoc->GetPDDoc; print "pp=".$pddoc->GetNumPages,"\n"; for (qw(Title Subject Author)) { print "$_:".$pddoc->GetInfo($_),"\n"; }
Warmest wishes,
Vadim
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re: Re: PDF GetInfo(
by svad (Pilgrim) on Apr 27, 2002 at 06:14 UTC | |
|
Re: Re: PDF GetInfo(
by axelrose (Scribe) on Apr 27, 2002 at 16:22 UTC |