PDF::Parse usage ?

Anyone use PDF perl mods ?

I am trying to read a PDF off of the disk and get the Author, Keywords, etc.

Having trouble with my syntax, not certain why.

use PDF;
use PDF: Smiley Tongue

****;
$fname=shift;
$pdf=PDF->new;
$result = $pdf->TargetFile ($fname);
$pdf->LoadPageInfo;
print "is a pdf \n" if ($pdf->IsaPDF);
print "the keywords are ",$pdf->GetInfo("Keywords"),"\n";

when I run on a PDF that I verified has Keywords:

pdf.ipl AN2383.pdf
Bad object reference '>' at pdf.ipl line 8
Bad object reference '>' at pdf.ipl line 8
Bad object reference '>' at pdf.ipl line 8
Bad object reference '>' at pdf.ipl line 9
While loading pages got object of type '' at pdf.ipl line 9
is a pdf
the keywords are

So the IsaPDF works. Nothing is returned from GetInfo and I ge the Bad reference errors.

I downloaded PDF.pm and PDF: Smiley Tongue

**** from cpan

Tips/Pointers/RTFMs appreciated

Andy

Find more posts tagged with

Comments

nipper

Well since I received no replies on this puppy, I will try another.

Anyone know anyway to parse PDFs ? I think I will try an ugly regex. I was going
to use PDF::API2 but that requires 5.8

Anyone ??????

Migrateduser

Yeah, I was also hoping to see some responses on this... I'm wondering what version of PDF the PDF: Smiley Tongue

****.pm module is compatible with. Does it barf when it doesn't find keywords or has this been a standard since like version 2 of PDF?

Dave

nipper

I am stuck.

I have reinstalled the complete PDF section, just tried the sample code, not my own & it
is failing on 5.005.

This was written in 2000 so I cannot beleive it is for a different rev of Perl than what IW uses.

:-(

Andy

Migrateduser

I was actually referring to the version of Acrobat. What I'm wondering is if you're trying to do something with the file (read keywords) that's either not there or not supported by the version of PDF your file is in.

Wow, I dunno if what I just wrote was English.

Anyway, I'm also going to try it within the next few days or so. I'll use it independently of TS.

Dave

nipper

Possible but when I strings blah.pdf | grep Keywords they are there.

so doubtful

civ3

I believe you just try to retrieve keywords of a particular PDF file. The code should be something like

use PDF;
$fname=shift;
$pdf=PDF->new($fname);
print "is a pdf \n" if ($pdf->IsaPDF);
print "the keywords are ",$pdf->GetInfo("Keywords"),"\n";

I hope this works for you.

Civ3.

nipper

One would think so

./pdf.ipl AN2383.pdf
Bad object reference '>' at ./pdf.ipl line 4
Bad object reference '>' at ./pdf.ipl line 4
Bad object reference '>' at ./pdf.ipl line 4
is a pdf
the keywords are

Adam Stoller

FWIW - I tried this code on my Mac running Perl 5.8.1-RC3 and I get pretty much the same thing:
------------
Premature end of file reached at ./pdf.ipl line 7
Bad object reference '' at ./pdf.ipl line 7
Bad object reference '' at ./pdf.ipl line 7
Bad object reference '' at ./pdf.ipl line 7
is a pdf
Use of uninitialized value in print at ./pdf.ipl line 9.
the keywords are

--fish
Senior Consultant, Quotient Inc.
http://www.quotient-inc.com

nipper

Thanks fish, I guess the testing of perl modules is not as rigorous as one would hope.

Too bad, that would be a nice tool to have in the arsenal.

Andy

chunk

I'm a little late on this one -- just browsing some older threads.

If you didn't get the pdf stuff working you can try pdfinfo and pdftotext.

Running pdfinfo on the TS 5.0 admin manual gives ...
pdfinfo ts.500.admin.sol.pdf

Title: TeamSite Administration Guide
Subject: TeamSite
Author: Interwoven
Creator: FrameMaker 6.0
Producer: Acrobat Distiller 4.05 for Macintosh
CreationDate: Mon May 14 19:02:53 2001
ModDate: Tue May 15 17:27:39 2001
Tagged: no
Pages: 264
Encrypted: no
Page size: 504 x 649 pts
File size: 2481862 bytes
Optimized: no
PDF version: 1.3

pdftotext does a pretty good job of dumping the contents to stdout.

pdfinfo is part of the xpdf package ( http://www.foolabs.com/xpdf/index.html )

Cheers,

bill