#!/usr/bin/perl
$\ = "\n";
#入力を整理。
$val = "";
unless($ENV{CONTENT_LENGTH}== 0){
read(STDIN,$_,$ENV{CONTENT_LENGTH}) ;
@argv = split /&/;
foreach(@argv){
($key,$val) = split /=/;
$arg{$key} = $val;
}
unless($arg{text} eq ""){
# リロード対策。
$chk ="";
open(CHK,"chk");
while(
/g;
#
# ここでメッセージを$valに戻しといて$_は無言検出につかう。
# 「…」なんちゅうのは無言とみなす。
#
$val = $_;
s/「//g;
s/」//g;
s/\.//g;
s/…//g;
s/‥//g;
s/
//g;
s/
//g;
s/&//g;
s/"//g;
s/<//g;
s/>//g;
s/。//g;
s/、//g;
s/・//g;
s/\;//g;
s/://g;
s/@//g;
s/!//g;
s/\?//g;
s/!//g;
s/?//g;
# s/\ー//g;
s/-//g;
s/=//g;
s/#//g;
s/$//g;
s/,//g;
}
}
##################################################################
## ここらへんで表示にはいる。
#################################################################
$\ = "\n";
print <#55 なんでも相談プログラム --会話編
END
print "迷える子羊のセリフ
";
print "
";
print $val,"
";
print "
";
print "老賢者のこえ
";
$\ = "\n";
if ($_ eq ""){
$socra = "どうしたん。黙ってたらわからんがな。";
}elsif ($_ eq "【さっきとおんなじ】"){
$socra = "ボキャブラリーに変化をつけなアカンで。マンネリじゃアカン";
}else{
#
#百分の一の台詞を決めて、なければ十分の一の台詞にする。
#
$i = time;
$gauta = $i % 100;
$socra = $i % 11;
if($gauta == 99){
$socra = "後、見てみい。アレがきとるで。ナンチャッテ。";
}
elsif($socra == 0){
$socra = "ふんふん、それで、それで。";
}
elsif($socra == 1){
$socra = "ああ、なるほどねェ。";
}
elsif($socra == 2){
$socra = "そうかい?そうかな?そうかなああ。";
}
elsif($socra == 3){
$socra = "そうはゆーても、人間、達者がなによりや。";
}
elsif($socra == 4){
$socra = "禍福はあざなえる縄の如し、なんてってね。人生万事サイオーが丙午ちゅうしなあ。";
}
elsif($socra == 5){
$socra = "ナメとったらあかんデ、いやいや。";
}
elsif($socra == 6){
$socra = "そうそう、そうなんよ。人生やねえ";
}
elsif($socra == 7){
$socra = "腹もへるし、ガキも泣くしなァ。いやいや、そういうことではなしにね。";
}
elsif($socra == 8){
$socra = "それでも、あなたの道を進め!なんちゃってね。";
}
elsif($socra == 9){
$socra = "それ、それ、それ、待ってたでェ。";
}
else{
$socra = "ンなアホな!";
}
}
print "
";
print "「", $socra ,"」
" ;
$time = localtime ;
open(LOG,">>una.log");
print LOG "子羊:",$val,"\n 老賢者:",$socra,"\n","\t",$time ;
close(LOG);
print <