CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー&ペーストで使える便利集! カテゴリー:ImageMagick 画像サイズを変更する [その2] (サムネイル・拡大縮小) サムネイルを作成するなど、画像を縮小・拡大したい。 画像の縦横比を考慮し、特定のサイズに収まるようにしたい。基本的にはその1で紹介したやり方で、width,heightの値の計算をちょちょいと工夫してやればよい。 めんどくさい事はどうでも良いという人は、miniMize関数(サブルーチン)をコピペして利用すれば良い。 ;# ;#指定サイズ以下にする(縦横比を考慮) ;# use Image::Magick; #-- 最終的な縦横サイズ --# my $max_width = 320; my $max_height = 250; #-- オブジェクト作成 --# my $image =