Hello,
The following Script don't work with all PDF-Files.
The generated Error is: Can't call method "getRootDict" on an undefined
value at .../perl5/site_perl/5.8.8/CAM/PDF.pm line 3766
################ The Script ####################
use strict;
use CGI;
my $cgi = new CGI;
use CAM::PDF;
use File::Basename;
my ($pdf, $anotherpdf);
#The Files
my ($pdf1) = '/tmp/pdf1.pdf';
my ($pdf2) = '/tmp/download/pdf2.pdf';
my ($pdfout) = '/tmp/edl/20090272371_7948.pdf';
eval {
$pdf = CAM::PDF->new($pdf1);
$anotherpdf = CAM::PDF->new($pdf2);
$pdf->appendPDF($anotherpdf);
$pdf->cleanoutput($pdfout);
};
if ($@) {
print "Error: $@ \n";
}
else { print "Success!\n";}
###########################################
Thank you,
KN
|