perl - 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のドキュメントを参照してください。