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);}