使用 Perl 拉伸图像、调整图像大小或缩略图

Question

如何使用 Perl 脚本拉伸或调整图像（任何格式）？

Answer 1

我推荐 Image::Imlib2... 如果您可以在计算机上安装 imlib2

请参阅文档： 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");

您可能还对 Image::Imlib2::Thumbnail，如果无法安装 imlib2 看看 Image::Magick

Answer 2

您可以使用Image::Resize。