# 複数画像からアニメーションgifを生成。
# use strict;
use File::Basename;
use Image::Magick;
use Data::Dumper;
opendir(DRC,".");@jpg = grep(/_holo\.jpg/i,readdir(DRC));closedir(DRC);# refer to http://www.imagemagick.org/script/perl-magick.php
print "[@jpg]";<stdin>;
unlink('_anime_holo.gif');
my  $img_mgk = Image::Magick->new();
    for my $jpg (@jpg){      print "ORG FILE : [$jpg]\n";
      $img_mgk->ReadImage($jpg);
    }
    $img_mgk->Animate(delay=>200,loop=>0); # 1/100 sec
    $img_mgk->Write('_anime_holo.gif');