如何調整圖像大小以適應Image :: Magick區域？

Question

從ImageMagick的命令行，你可以使用：

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

來調整，然後裁剪圖像，以便它填充區域儘可能地。

如何從Perl的Image::Magick這樣做？

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'); 

查看PerlMagick文檔。