Растягивайте, изменяйте размер или уменьшайте изображение с помощью Perl
-
20-08-2019 - |
Вопрос
Как я могу растянуть или изменить размер изображения (любого формата) с помощью сценария Perl?
Решение
Я бы порекомендовал Image::Imlib2...если вы можете установить imlib2 на свой компьютер
См. документацию: Изображение::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");
Вас также может заинтересовать Изображение::Imlib2::Миниатюра, если вы не можете установить imlib2, посмотрите Изображение::Магия
Другие советы
Вы могли бы использовать Изображение::Изменить размер.
Не связан с StackOverflow