One PDF file for a set of images

Submitted by:Jhon Smith

Date added:19 April, 2011

Category:Perl

I had to scan a bunch of paper documents (one image per page), and upload them all to a web site that would accept only one PDF file containing the whole set.

Tags: perl snippets , snippets for pdf file

Code Snippet:

#!/usr/bin/perl

use strict;
use warnings;
use PDF::Create;

my $pdf = new PDF::Create(filename=>"test.pdf",Author=>"Me");
my $psz = $pdf->get_page_size("Letter");
my $rt = $pdf->new_page( MediaBox => $psz );
for my $i (<*.jpg>) {
my $im = $pdf->image($i);
my $pg = $rt->new_page( MediaBox => $psz );
$pg->image( image => $im,
xpos => 0, ypos => 0,
xscale => $$psz[2] / $$im{width},
yscale => $$psz[3] / $$im{height}
);
}
$pdf->close;
 
 

Comments