The ERROR is:my $pdf = PDF::API2->new(); $pdf->mediabox(595,842); my $page = $pdf->page; my $fnt = $pdf->corefont('Arial',-encode => 'latin1'); my $txt = $page->text; $txt->textstart; $txt->font($fnt, 20); $txt->translate(150,800); $txt->text("Dige Images for Experiment"); my $photo = $page->gfx; my $jpeg = $pdf->image_jpeg("http://docs.gimp.org/images/filters/exam +ples/color-taj-sample-colorize.jpg"); $photo->image($jpeg,100,50,60,400); $txt->textend; $pdf->saveas("/tmp/HelloWorldDige24.pdf"); $pdf->end( );
error: Can't call method "val" on an undefined value at /usr/lib +/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image.pm line 99. context: ... 95: sub width { 96: my $self = shift @_; 97: my $x=shift @_; 98: $self->{Width}=PDFNum($x) if(defined $x); 99: return($self->{Width}->val); 100: } 101: 102: =item $ht = $img->height 103: ... code stack: /usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObj +ect/Image.pm:99 /usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image/JPEG.pm +:147 /usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image/JPEG.pm +:81 /usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image/JPEG.pm +:116 /usr/lib/perl5/site_perl/5.8.0/PDF/API2.pm:1898 /usr/local/apache/html/bioinfo/pfc/view/view_digegel.mhtml:86 /usr/local/apache/html/bioinfo/pfc/view/autohandler:107 /usr/local/apache/html/bioinfo/pfc/view/syshandler:42
In reply to Can't call method "val" on an undefined value at /usr/lib/perl5/site_perl/5.8.0/PDF/API2/Resource/XObject/Image.pm line 99 by nargis
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |