画像生成・保存(Image::Magick->new)
#! /usr/local/bin/perl use Image::Magick; # 画像保存先 $out = './imgc.gif'; # オブジェクト作成 $image = Image::Magick->new; # 画像サイズ $image->Set(size=>'300x300'); # 画像読み込み(背景色) $image->Read('XC:#ffcc99'); # 円を描画 $image->Draw( primitive => 'Circle', points => '60,60 80,80', linewidth => 3, stroke => 'red', fill => 'blue' ); # 枠 $image->Frame( geometry => '5x5', inner => 2, outer => 2 ); # 画像保存 $image->Write($out); # オブジェクト破棄 undef $image; print qq(Content-type: text/html\n\n); print <<"END"; <html> <head> <title>画像生成・保存</title> </head> <body> 画像生成・保存しました。<br> <br> ↓生成した画像<br> <img src="$out"><br> </body> </html> END exit;
〔 実行する 〕