【CGI・Perl】画像サイズを変更する [その1] (サムネイル・拡大縮小)

CGI・Perl例文集 CGI(Perl)のサンプルプログラムをコピー＆ペーストで使える便利集！ カテゴリー：ImageMagick 画像サイズを変更する [その1] (サムネイル・拡大縮小) サムネイルを作成するなど、画像を縮小・拡大したい。 縮小率(拡大率)などが決まっている場合、例えば一律50%に縮小するといったことは、非常にかんたんに行える。 次の例では、読み込んだ画像の縦、横のピクセル数を取得し、50%のサイズにリサイズを行い、保存するというプログラムである。 ;# ;#半分のサイズにする ;# use Image::Magick; #-- オブジェクト作成 --# my $image = Image::Magick->new; #-- 画像を読込む --# $image->Read('./image.jpg'); #-- 現在の縦・横を取得 --# my ($n