Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl Monk, Perl Meditation

One PDF file for a set of images

by graff (Chancellor)
on Jun 17, 2009 at 05:57 UTC ( #772236=snippet: print w/replies, xml ) Need Help??
Description: 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.

A few CPAN module can do this, but their man pages leave a lot to the imagination. After a dozen trial/error iterations, here's what worked for me, using PDF::Create (it's manual was much better than PDF::API2).


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}

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: snippet [id://772236]
[erix]: nice cover with the spitting image of George (and a great solo by Prince at the end )
[Discipulus]: good night monks! i feel fresh as the turkey in the hoven but i need to sleep
[planetscape]: gobble, gobble, Discipulus!
[erix]: Discipulus: buonanotte! :)
[stonecolddevin]: man we need a new guitar legend
[stonecolddevin]: Clapton has issues playing nowadays
[stonecolddevin]: Prince is gone
[stonecolddevin]: Van Halen is still around but I haven't heard any of their new stuff
[erix]: oh, 41M views -- everyone has seen it already then :)
[erix]: Alvin Lee dead too -- we're stuck with Karl, I'm afraid :)

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2017-06-22 21:20 GMT
Find Nodes?
    Voting Booth?
    How many monitors do you use while coding?

    Results (531 votes). Check out past polls.