Allunga, ridimensiona o visualizza in miniatura un'immagine usando Perl
-
20-08-2019 - |
Domanda
Come posso allungare o ridimensionare un'immagine (di qualsiasi formato) usando uno script Perl?
Soluzione
Consiglierei Image :: Imlib2 ... se puoi installare imlib2 sul tuo computer
Vedi documentazione: 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");
Potresti anche essere interessato a Image :: Imlib2 :: Miniatura , se non puoi installare imlib2 dai un'occhiata a Immagine :: Magick
Altri suggerimenti
Puoi utilizzare Image :: Resize .
Autorizzato sotto: CC-BY-SA insieme a attribuzione
Non affiliato a StackOverflow