Stretch, resize, or thumbnail an image using Perl

问题

How can I stretch or resize an image (of any format) using a Perl script?

回答1:

I'd recommend Image::Imlib2... if you can install imlib2 on your machine

See documentation: Image::Imlib2

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

You might also be interested in Image::Imlib2::Thumbnail, if you can not install imlib2 have a look at Image::Magick

回答2:

You could use Image::Resize.

来源：https://stackoverflow.com/questions/486874/stretch-resize-or-thumbnail-an-image-using-perl