るさんちまん

技術メモとか雑記とか

2013-06-21から1日間の記事一覧

Image::Magickでgif画像をcropする

Perlの Image::Magick を使ってgif画像をcropしようとして一日ハマったのでメモ。 use Image::Magick; my ($WIDTH, $HEIGHT) = (320, 240); my ($MOVE_X, $MOVE_Y) = (50, 100); my $image = Image::Magick->new; $image->Read('original.gif'); $image->Cro…