Tfe

Ongi etorri tfe-ren webgunera...

Old stuff/Perl/Image/test.pl

(Deskargatu)

#!/usr/bin/perl -w

use Image::Magick;

my ($image,$x);

$image = Image::Magick->new;
$x = $image->Read('image.png');
warn "$x" if "$x";

$x = $image->Resize(geometry=>'50x50');
warn "$x" if "$x";

$x = $image->Write('nouvelle.png');
warn "$x" if "$x";