Adding Image to PDF

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi Monks!
I am working on creating pdf docs using "PDF::API2" and "PDF::Table" but I cant get or find anything about adding an image to the pdf, has anyone here done anyhting like that that could show me how to add a simple image file to the pdf using the modules above?
Code sample:

#!/usr/bin/perl

use strict;
use warnings;

use PDF::API2;
use PDF::Table;

 my $pdftable = new PDF::Table;
 my $pdf = new PDF::API2(-file => "table_test.pdf");
 my $page = $pdf->page;

#my $image = $pdf->image_jpeg( "images/logo.jpeg" );
#$pdf->page( $image->width, $image->height );
#$pdf->image( $image, 0, 0 );

 # some data to layout
 my $some_data =[
    ["image here","1 Lorem ipsum dolor",
    "Donec odio neque, faucibus vel",
    "consequat quis, tincidunt vel, felis."],
    ["Nulla euismod sem eget neque.",
    "Donec odio neque",
    "Sed eu velit."],
 ];

 my $left_edge_of_table = 50;
 # build the table layout
 $pdftable->table(
     # required params
     $pdf,
     $page,
     $some_data,
     x => $left_edge_of_table,
     w => 495,
     start_y => 750,
     next_y  => 700,
     start_h => 300,
     next_h  => 500,
     # some optional params
     padding => 5,
     padding_right => 10,
     background_color_odd  => "gray",
     background_color_even => "lightblue", #cell background color for 
+even rows
  );

 # do other stuff with $pdf
 $pdf->saveas();
[download]

Thanks for helping!

Comment on Adding Image to PDF Download Code

Replies are listed 'Best First'.
Re: Adding Image to PDF by Eliya (Vicar) on Oct 10, 2012 at 15:59 UTC
`... my $image = $pdf->image_jpeg( "images/logo.jpeg" ); $page->gfx->image( $image, 0, 0 ); ...` [download] The key thing here is to call `->gfx` on the page object (which kind of gets you the "graphics context" of that page).	[reply] [d/l] [select]
Re: Adding Image to PDF by frozenwithjoy (Priest) on Oct 10, 2012 at 15:53 UTC
I've not yet used either of those modules; however, I have plans to make pdf contact sheets from groups of images and recently found a link to some code that does just that using PDF::Create. Perhaps this will help: Generating PDF contact sheets with PDF::Create.	[reply]
Re: Adding Image to PDF by MilanorTSW (Beadle) on Oct 10, 2012 at 16:06 UTC
You'll have to use the gfx object method for that, AFAIK. `my $gfx = $page->gfx; my $img = $pdf->image("images/logo.jpeg", 100, 60); # define the image + and image dimensions $gfx->image($img, $x, $y); # Add the image, including coordinates $gfx->close; # close up` [download]	[reply] [d/l]
Re^2: Adding Image to PDF by Anonymous Monk on Oct 10, 2012 at 17:23 UTC
No luck, tried and getting an error: `Can't locate object method "image" via package "PDF::API2" at test.pl +line 32.` [download] If I change this line: `my $img = $pdf->image("images/logo.jpeg", 100, 60); # define the image + and image dimensions` [download] To `my $img = $pdf->image_jpeg("images/logo.jpeg", 100, 60); # define the +image and image dimensions` [download] I am getting this: `Can't call method "val" on an undefined value at /usr/local/share/perl +5/PDF/API2/Resource/XObject/Image.pm line 66.` [download] Any more input? Thanks!	[reply] [d/l] [select]
Re^3: Adding Image to PDF by MilanorTSW (Beadle) on Oct 10, 2012 at 17:49 UTC
The last error generally means that such image does not exist and as such the value is left unidentified. Are you sure the image is there? Also try $gfx->stroke; and $gfx->compress(); after closing.	[reply]
Re^4: Adding Image to PDF by Anonymous Monk on Oct 10, 2012 at 18:16 UTC