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…