画像文字埋め込み(Image::Magick, Annotate)
#! /usr/local/bin/perl use Image::Magick; # 元画像ファイル $in = '../../sample/img/img.jpg'; # 画像保存先 $out = './imga.jpg'; # オブジェクト作成 $image = Image::Magick->new; # 元画像読み込み $image->Read($in); # 文字埋め込み $image->Annotate( text => 'Hello!!', #埋め込み文字 pointsize => 40, #文字サイズ fill => 'red', #文字色 stroke => 'orange', #文字縁取り x => 10, #埋め込み位置(左) y => 50 #埋め込み位置(上) ); $image->Annotate( text => 'https://' . $ENV{'HTTP_HOST'}, pointsize => 15, fill => 'black', x => 10, y => 230 ); # 画像保存 $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;
〔 実行する 〕