Help for this page

Select Code to Download


  1. or download this
    foreach (@image){
my $image=Image::Magick->new();
$image->Read($_);
$image->Write(substr($image->Get('filename'), 0, length($image->Get('f
+ilename'))-4).".gif");
}
  2. or download this
    my $rawData = pack 'H*', $data->{BackImg};
print $q->header(type=>'image/gif', Content_Length=>length($rawData)).
+$rawData;
if($blob ne $rawData){die $rawData."\nlength=".length($rawData)."\nfil
+e image = ".$blob."\nlength=".length($blob);}