Image::Magick (perlmagick) を使ってみた

技術ネタ

旅行に行ったときの写真を一括編集するために， 画像編集ツール ImageMagick の Perl インターフェースである perlmagick パッケージを利用してみた．

こんな感じで使う．

my $im = Image::Magick->new;
my $err
     
$err = $im->Read( $filename );
die "$err\n" if $err;
    
unless (-d '$small_dir') {
    mkdir('$small_dir') or die "cannot create directory '$small_dir'\n";
}
$err = $im->Resize( geometry => $normal_size );
die "$err\n" if $err;
$err = $im->Write( '$small_dir/' . $filename );
die "$err\n" if $err;
    
# destroy Image::Magick object.
undef $im;

覚えておくべき基本としては，各メソッドの例外処理の方法と， Image::Magick オブジェクトの破棄の方法かな．

他にも画像の変形や切り抜きなど，ImageMagickの豊富な機能が使えるのだが， 詳細については公式サイトで．