画像合成(Image::Magick, Composite)
#! /usr/local/bin/perl
use Image::Magick;
# 元画像ファイル
$file1 = '../../sample/img/img.jpg';
# 埋め込み画像ファイル
$file2 = '../../sample/img/no/7.gif';
# 画像保存先
$out = './imgcomp.jpg';
# オブジェクト作成
$image1 = Image::Magick->new;
$image2 = Image::Magick->new;
# 画像ファイル読み込み
$image1->Read($file1);
$image2->Read($file2);
# 画像合成
$image1->Composite(image=>$image2, compose=>'Over', x=>20, y=>20);
# 画像保存
$image1->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="$file1" style="float:left">
<img src="$file2"><br>
</body>
</html>
END
exit;
〔 実行する 〕