画像縮小・拡大・サイズ変更(Image::Magick, Resize)
#! /usr/local/bin/perl use Image::Magick; # 元画像ファイル $in = '../../sample/img/img.jpg'; # 画像保存先 $out = './imgs.jpg'; # オブジェクト作成 $image = Image::Magick->new; # 元画像読み込み $image->Read($in); # 元画像縦横サイズ取得 ($w, $h) = $image->Get('width', 'height'); # サイズ変更 $image->Resize( width => int($w * 0.5), # 0.5倍(1倍未満で縮小、1倍以上で拡大) height => int($h * 0.5), # 0.5倍 blur => 0.8 ); # 画像保存 $image->Write($out); print qq(Content-type: text/html\n\n); print <<"END"; <html> <head> <title>画像サイズ変更</title> </head> <body> 画像サイズ変更・保存しました。<br> <br> ↓保存した画像<br> <img src="$out"><br> <br> ↓元の画像<br> <img src="$in"><br> </body> </html> END exit;
〔 実行する 〕