Come posso ridimensionare un'immagine per adattarla all'area con Image :: Magick?

Question

da linea di comando con ImageMagick, è possibile utilizzare:

convert dragon.gif -resize 64x64^ -gravity center -extent 64x64 fill_crop_dragon.gif 

per ridimensionare e poi ritagliare un'immagine in modo che riempia l'area il più possibile.

Come faccio a farlo da Image::Magick di Perl?

Answer 1

#!/usr/bin/perl 

use strict; 
use warnings; 

use Image::Magick; 

my $image = Image::Magick->new; 
$image->read('test.jpg'); 

$image->Set(Gravity => 'Center'); 
$image->Resize(geometry => '64x64'); 
$image->Extent(geometry => '64x64'); 
$image->Write('test-out.jpg'); 

Vedere la documentazione PerlMagick.