プログラムスレッド

82：女傑 ◆nDpXSJz8i.：2012/05/21(月) 00:13:24: #!/usr/local/bin/perl

use Image::Magick;
use Jcode;
use Unicode::Japanese;
#$j->fallback(Jcode::FB_PERLQQ)->euc; # '\x{262f}'
#$j->fallback(Jcode::FB_XMLCREF)->euc;
#$j->fallback(Jcode::FB_HTMLCREF)->euc;
$Jcode::FALLBACK = Jcode::FB_HTMLCREF; # デフォルトのフォールバックスキーマを設定
$query= $ENV{'QUERY_STRING'};
($name, $value) = split(/=/, $query);
if ($name eq "q") { $qry = $value; }
else { $qry= $ENV{'QUERY_STRING'}; }
$qry =~ tr/+/ /;
$qry =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
$qry =~ s/\.//g;
$qry =~ s/\///g;
$qry =~ s/&/&/g;
$qry =~ s/</</g;
$qry =~ s/>/>/g;
$qry =~ s/"/"/g;
$qry =~ s/\r\n/\n/g;
$qry =~ s/\r/\n/g;
chomp($qry) if $qry =~ /\n$/;
if ($qry eq "") { &error("オプションがありません"); }
$len = length($qry); $m = '26';
if ($len > $m) { &error("エラー","引数を$mバイト以内でご指定ください"); }
$in = './Esashi-fujiharanosato.jpg';
$out = './imga.jpg';
$ip = $ENV{'REMOTE_ADDR'};
$ip =~ s/(\d+)\.(\d+)\.(\d+)\.(\d+)/$1.***.***.***/;
$bunshou = "$qry";
$ocode = "utf8";

my ($icode, $nmatch) = Jcode::getcode($bunshou);
$text = Jcode::convert(\$bunshou, $ocode, $icode, "z");
$text = Unicode::Japanese->new($bunshou, "utf8")->h2z->$ocode;
$font = '/virtual/hasestar/public_html/ipamjm.ttf';
$image = Image::Magick->new(size=>"320x240",pointsize=>24,font=>$font);
##my $unistr = "\x{E9}\x{AB}\x{99}";
my $unistr = "$text";
my $j = jcode($unistr, "utf8");
$j->fallback($Jcode::FALLBACK)->euc;
$image->Read($in);
$image->Annotate(
text => "$text",
pointsize => 40,
fill => "#00a3af",
stroke => "#00a3af",
x => 10,
y => 50
);

$image->Annotate(
text => $ENV{'HTTP_HOST'} . $ENV{'SCRIPT_NAME'},
## text => 'http://' . $ENV{'HTTP_HOST'} . $ENV{'SCRIPT_NAME'},
## text => "$ip",
pointsize => 17,
fill => 'black',
x => 10,
y => 230
);
$image->Write($out);

print "Content-type: text/html\n\n";
print <<"EOF";

<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=euc-jp">
<meta http-equiv="pragma" content="no-cache">
<meta http-equiv="cache-control" content="no-cache">
<title>画像文字埋め込み</title></head>
<body>
画像に文字を埋め込み・保存しました。 
 
↓保存した画像 
<img src="$out"> 
入力文字のデコード$icode→$ocode $j
 
↓元の画像 
<img src="$in"> 
</body></html>
EOF
exit;
sub error {
local (@msg) = @_;
local ($i);
print "Content-type: text/html\n\n";
print <<"EOF";
<html><head><META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=euc-jp">
<title>失敗</title></head>
<body>
<h3>失敗</h3>
</body></html>
EOF
foreach $i (0 .. $#msg) { print "$msg[$i] \n"; }
exit;
}

※書き込む際の注意事項はこちら

※画像アップローダーはこちら

（画像を表示できるのは「画像リンクのサムネイル表示」がオンの掲示板に限ります）