#!/usr/bin/perl
#GETでPOSTどちらでデータが送られて来たか選別
$method = $ENV{ 'REQUEST_METHOD' };
#どちらで来たか選別後
#フォームからデータ「yourname=○○○」を読み取り、
#読み込んだデーターを$inputに代入
$input = $ENV{ 'QUERY_STRING' };
if( $method eq 'GET' ) {$input = $ENV{ 'QUERY_STRING' };}
else {read( STDIN,$input,$ENV{ 'CONTENT_LENGTH' } );}
#$inputから文字列をsplitで分解（=を削除）して$yournameと$nameに代入
($yourname,$name) = split /=/, $input;
#--nameデータのデコード処理
$name =~ tr/+/ /;
$name =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
#htmlを表示
print "Content-type: text/html\n\n";
print "\n";
print "こんにちは${name}さん
\n";
print "\n"
__END__