ASARI.JP : Diary: Image::MagickとJPEG圧縮 その後一昨日の日記の続きです。友人からのコメントで、Image::Magick自体には圧縮率を設定する機能があることが分かりました。 さっそく実際にMovableTypeに実装してみました。Perlはほとんど知らないのでどこでやるべきか悩んだのですが、Image.pm の93行目（ImageToBlobという単語が含まれている行）の前に以下の１行を加えれば、とりあえず動作するようです。 $magick->Set(quality=>90); なお、この93行目というのはMTのバージョンが3.151-ja（Image.pmのバージョンが1.18）の場合です。他のバージョンでは違うかもしれません。また、画像処理にNetPBMを使用している場合は考慮していません。 qualityの値は1から100まで有効で、無指定の場合は75になるようです。画質を見ながらいろいろ試してみて、とりあえず90にしてみました
