Kamesuta回答ポイント なしウォッチ
1363694152

PerlのImagerでテキストの画像を作りたい!

Imagerを使ってフォームから送られてきたテキストを、画像化しようとしていますが、日本語が文字化けしてしまいます。
$textが普通に「$text="ああああ";」だと、うまくできます。
ファイルは、UTF-8です。(添付画像はそこに入れてみたものです。理想)
□□□↓↓ファイル↓↓□□□
#! /usr/bin/perl
#インポート
use strict;
use warnings;
use utf8;
use Imager;

$text="ああああ";#←ここを「my ($cmd,$text) = split(/;/,$ENV{'QUERY_STRING'});」にすると、エラー
#↑ここをCGI.pmを使ってみたら、文字化け!
my $font = Imager::Font->new(
file => '/home/*****/public_html/font/○△□.ttf',
color => '#000000',
size => 60,
);
my $bbox = $font->bounding_box(string => $text); # 文字情報を取得
my $img = Imager->new(xsize => $bbox->total_width, ysize => $bbox->font_height);
$img->box(color => '#ffffff', filled => 1); # 背景を白くする
$img->string(
font => $font,
text => $text,
x => 0,
y => $bbox->font_height + $bbox->descent,
aa => 1,
);
print "Content-type: image/png\n\n";
print $img->write(fh => \*STDOUT, type => 'png') or die $img->errstr;
□□□↓↓ここまで↓↓□□□
どうか、文字化けしないようテキストを、GETメソッドで受け取れるように改変していただけませんか?

ログインして回答する

みんなの回答

この質問へのコメント

コメントはありません

この質問への反応(ブックマークコメント)

質問の情報

登録日時
2013-03-19 20:55:52
終了日時
2013-03-26 21:00:07
回答条件
1人5回まで

この質問のカテゴリ

この質問に含まれるキーワード

Perl1679UTF-8628QUERY_STRING21PNG334CGI2023文字化け1005メソッド515AA181インポート706□□□51

人気の質問

メニュー

PC版