GD resize

画像をresizeしてコピーしたかった。

use GD;

my $base = GD::Image->new(50,50); # 縮小したいサイズ
my $src  = GD::Image->new(10,10); # 縮小する対象

$base->copyResized($src,0,0,0,0,$base->width,$base->height,$src->width,$src->height);

$base->png;

んな感じ。

http://search.cpan.org/~lds/GD-2.35/GD.pm