Hello Again,
Based on What i'm trying to do is something like resizing a image. Suppose i have a 100x100 image and i want to resize it to 1000x1000. you could use Image::Resize. Sample of code from documentation:
use Image::Resize;
$image = Image::Resize->new('large.jpg');
$gd = $image->resize(250, 250);
But also Image::Imlib2. Sample of code from Stretch, resize, or thumbnail an image using Perl:
use Image::Imlib2;
# load image from file
my $image = Image::Imlib2->load("in.png");
# get some info if you want
my $width = $image->width;
my $height = $image->height;
# scale the image down to $x and $y
# you can set $x or $y to zero and it will maintain aspect ratio
my $image2 = $image->create_scaled_image($x,$y);
# save thumbnail to file
$image2->save("out.png");
Seeking for Perl wisdom...on the process of learning...not there...yet!
|