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