Stretch, vergrößern, verkleinern, oder ein Miniaturbild mit Perl

Question

Wie kann ich strecken oder Bildgröße ändern (von einem beliebigen Format) einen Perl-Skript?

Answer 1

Ich würde empfehlen Bild :: Imlib2 ... wenn Sie imlib2 auf Ihrem Rechner installieren können,

Siehe Dokumentation: Bild :: 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");

Sie könnten auch interessiert sein an Bild :: imlib2 :: Thumbnail , wenn Sie nicht installieren können imlib2 einen Blick auf Bild :: Magick

Answer 2

könnten Sie Bild :: Resize .