画像切り出し(Image::Magick, Crop)
#! /usr/local/bin/perl use Image::Magick; # 元画像ファイル $in = '../../sample/img/img.jpg'; # 画像保存先 $out = './imgcrop.jpg'; # オブジェクト作成 $image = Image::Magick->new; # 元画像読み込み $image->Read($in); # 切り出し $image->Crop(geometry=>'120x100+50+50'); # 画像保存 $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;
〔 実行する 〕