[Perl]Image::Magickで画像を縮小するワンライナー

画像を縦横それぞれ半分のサイズに縮小するサンプルコード
perl -MImage::Magick -e '$img = Image::Magick->new; $x = $img->Read(shift);warn $x if $x; $x= $img->Resize("50%");warn $x if $x; $x = $img->Write(shift);warn $x if $x;' in.JPG out.JPG
縦も横も半分なので面積は四分の一になります。
in.JPGが入力ファイルでout.JPGが出力ファイルです。

PerlのImage::Magickの動作確認にお使いください。
カテゴリ: