insertion image PDF

j'essie d'insere une image dans un document pdf
mais :

#perl

use strict;
use PDF::API2;
use PDF::API2::Util;
use warnings;

my $pdf=PDF::API2->new;

my $f2=$pdf->corefont('Helvetica-Bold',-encode=>'latin1');

my $page = $pdf->page;
$page->mediabox(595,842);

my $gfx=$page->gfx;

$gfx->textlabel(50,600,$f2,40,'Mon Image ',
-color=>'#0000CC',
-rotate=>0,
-hspace=>65,
-underline=>[4,[1,'red'],7,
[1.5,'yellow'],11,2],

);

my $img = $pdf->image_jpeg("imx.jpg");
$gfx->image_jpeg($img, 0, 100, 264, 68);

#$page->update;
#$pdf->update;

$pdf->saveas("test.pdf");
$pdf->end();

Dans l'article <1ed04c09.0504190405.2722462@posting.google.com>,
patrick.fontaine@francetelecom.com a dit...

j'essie d'insere une image dans un document pdf
mais :

#perl

use strict;
use PDF::API2;
use PDF::API2::Util;
use warnings;

my $pdf=PDF::API2->new;

my $f2=$pdf->corefont('Helvetica-Bold',-encode=>'latin1');

my $page = $pdf->page;
$page->mediabox(595,842);

my $gfx=$page->gfx;

$gfx->textlabel(50,600,$f2,40,'Mon Image ',
-color=>'#0000CC',
-rotate=>0,
-hspace=>65,
-underline=>[4,[1,'red'],7,
[1.5,'yellow'],11,2],

);

my $img = $pdf->image_jpeg("imx.jpg");
$gfx->image_jpeg($img, 0, 100, 264, 68);

#$page->update;
#$pdf->update;

$pdf->saveas("test.pdf");
$pdf->end();

Pour insérer l'image il faut

$gfx->image($img, 0, 100, 264, 68);

et non

$gfx->image_jpeg($img, 0, 100, 264, 68);

HTH
merci c est ok