Beefy Boxes and Bandwidth Generously Provided by pair Networks
Do you know where your variables are?

CAM::PDF error

by eversuhoshin (Sexton)
on Mar 20, 2011 at 03:15 UTC ( #894247=perlquestion: print w/replies, xml ) Need Help??
eversuhoshin has asked for the wisdom of the Perl Monks concerning the following question:

Hello fellow monks,

I get the following error when I try to convert pdf to text using CAM::PDF

Expected string closing 4810 8.01.88 Td^M1.394.9zio...

Can someone help me either fix the error or make the script ignore the error and keep running?

Some pdfs are converted while some fail maybe it's a code that I get for pdf that only have pictures?

Here is the code

#!/usr/bin/perl -w use strict; use CAM::PDF; use CAM::PDF::PageText; use File::Spec::Functions; use File::Find::Rule; #1. Specify directory my $dirPath= 'F:/project_italia/firm_files'; my $src_fmt='*.*'; #2 retrieve all sub-dirs from the directory my @allDir = File::Find::Rule->maxdepth(1)->directory->in($dirPath); open(LIST, ">>", 'F:/project_italia/firmList_pdf.txt' ) or die "Can't +open destination.fil $!"; foreach (@allDir) { my $src_path = catfile($_, $src_fmt); my @filings = glob($src_path); foreach (@filings) { my $fileName=$_; my $pdf = CAM::PDF->new($_); #split path name my @textName = split(/\\/, $_); #Create new text file open(DEST, ">>", 'F:/project_italia/firm_text/'.$textName[4].'. +txt' ) or die "Can't open destination.fil $!"; #keeps track on whether the pdf to text conversion was successf +ul my $conv=0; my $count=0; #Get total page number of the pdf my $pageNum=$pdf->numPages(); for (1..$pageNum) { my $pageConv = $pdf->getPageContentTree($_); #if conversion fails move to the next file print DEST CAM::PDF::PageText->render($pageConv) or do { warn "PDF->new failed on $_\n"; next; }; $count++; #conversion is successful only when all pages have been co +nverted $conv=1 if ($count==$pageNum); } #close text file close DEST; #keep track of which files converted successfully print LIST "$textName[4] | $conv \n"; } } close LIST;

Replies are listed 'Best First'.
Re: CAM::PDF error
by Anonymous Monk on Mar 20, 2011 at 03:18 UTC
    use eval {} to trap errors

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: perlquestion [id://894247]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others examining the Monastery: (4)
As of 2018-04-24 09:22 GMT
Find Nodes?
    Voting Booth?