Hello~

Thank you fellow monks for all the good support :)

Without you guys I would be crying in my cubicle

I'm converting pdf files to text files but I don't know how to handle in cases the conversion fails

I want it to move to the next file if the conversion fails.

It would be great if you can help me write the error handling in case CAM::PDF fails to convert to the pdf to text

;

Below is my code thanks again :)

#!/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($_);
            
            #error handle if fail go to next file
            print DEST CAM::PDF::PageText->render($pageConv);
            $count++;
            
            #conversion is successful only when all pages have been co
+nverted
            $conv=1 if ($count==$pageNum); 
            
        }        
        close DEST;
        
        #keep track of which files converted successfully
        print LIST "| $conv";
    }
        
}    
close LIST;
[download]

---

---

Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!

Titles consisting of a single word are discouraged, and in most cases are disallowed outright.

Read Where should I post X? if you're not absolutely sure you're posting in the right place.

Please read these before you post! —

• How do I compose an effective node title?
• How do I post a question effectively?
• Markup in the Monastery

Posts may use any of the Perl Monks Approved HTML tags:

a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr

You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)

	For:		Use:
	&		&
	<		&lt;
	>		&gt;
	[		&#91;
	]		&#93;

Link using PerlMonks shortcuts! What shortcuts can I use for linking?

See Writeup Formatting Tips and other pages linked from there for more info.