画像に文字を書き込む


 Image::Magickモジュールを使うと画像に文字を書き込むことができます。
use strict;
use warnings;
use Encode;
use Image::Magick;

my $text = Encode::decode('cp932', '文字を描画');
my $font = 'c:/windows/fonts/msmincho.ttf';
my $src_filename = 'input.jpg';
my $dest_filename = 'output.jpg';

my $image = Image::Magick->new;
my $status = $image->Read($src_filename);
die $status if $status;

$image->Annotate(
    encoding => 'UTF-8',
    fill => 'white',
    font => $font,
    gravity => 'South',
    pointsize => 28,
    text => Encode::encode('utf8', $text),
    undercolor => 'gray',
    y => 10,
);

$status = $image->Write($dest_filename);
die $status if $status;

関連項目

画像サイズの変更
画像の大きさの取得