[Perl]のImagerでリサイズ

アップロードするときに画像のリサイズをしたいと思い、Imagerをチョイスしました。

my $img_fh = $query->upload("img_$i");

$img->read(fh => $img_fh) or die $img->errstr;
$img = $img->scale (ypixels => 500, type => 'min');
$img->write(file => "./$file_path/img_$i.jpg", jpegquality => 80) or die $img -> errstr;

まだまだスマートには書けませんが、今のところ必要最低限を目指します。
6枚のjpgを一気にリサイズするように作ったので、処理に時間がかかります。

待ち時間が気になるので、後々loading movieでも使って使用者に待ってもらおうって言う寸法です。