cgi-kotoba

【いつどこゲーム】　

【ソース】　kotoba.cgi

【解説】

#!/usr/local/bin/perl
$program="./kotoba.cgi";
print "Content-Type: text/html\n\n";
@when=('昨日',
'今日',
'明日',
'去年の誕生日に',
'2006年1月1日午前0時に',
'結婚記念日に',
'敬老の日に',
'クリスマスに',
'紀元前3200年に',
'真夏の暑い日');
@who=('私が',
'兄が',
'みっちゃんが',
'母が',
'彼氏が',
'隣のおばさんが',
'通りがかりのチワワが',
'インドネシア人の友人が',
'大統領が',
'大学教授が');
#「いつ」「だれが」は乱数でセット
srand(time);
#発生した乱数の値
$dat_1=rand($#when); #この行はデバッグ用、後で削除
$random_1=int(rand($#when+1));
#発生した乱数の値その２
$dat_2=rand($who); #この行はデバッグ用、後で削除
$random_2=int(rand($#who+1));
#「どこで」と「なにをした」はフォームの入力値をセット
#送られてくる文字列の長さ
$length=$ENV{'CONTENT_LENGTH'};
#長さ分だけ標準入力から読み込む
read(STDIN, $buffer, $length);
#文字列ごとに分割する
($basyo,$syumi)=split( /&/ , $buffer);
#フォーム名と内容に分割する
($name,$value1)= split( /=/ , $basyo);
($tel,$value2)=split( /=/ , $syumi);
#フォームから送られたデータにスペースがあると、
#プラス（+）に置き換えられるので、
#スペースにしたままにする変換処理をする
$value1=~ tr/+/ /;
$value2=~ tr/+/ /;
#フォームから送られたデータの特殊文字や日本語などは
#　%　に続く２桁の16進数に置き換えられるので、
#それを変換しなおす処理をする
$value1=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
$value2=~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C",hex($1))/eg;
print <<EOF;
<HTML><HEAD><TITLE>いつどこゲーム</TITLE></HEAD>
<BODY>
いつ・どこで・だれが・なにをした？
$when[$random_1] 、 $value1　で、 $who[$random_2] $value2　をしました。
</BODY></HTML>
EOF
exit;

これまでのソースのつなぎ合わせ。