#!/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(){ chop; $chk = $chk.$_ ; } close(CHK); $ref = $arg{text}; chop $ref ; if( $chk eq $ref){ $arg{text} = "【さっきとおんなじ】"; } else{ open(CHK,">chk"); print CHK $ref ; close(CHK); } $arg{text} =~ s/%(..)/pack("C",hex($1))/eg ; $val = $arg{text}; # #SJIS,JIS,EUC -> SJIS use Jcode ; $val = jcode($val)->h2z->sjis; # # いったん $_ にいれて整形。 # $_にしとけば、ちょっとだけ表記がラクになる $_ = $val; s///g; s/\+/ /g; s/\t//g; s/\r\n/\n/g; # Win→Unix s/\r/\n/g; # Mac→Unix s/&/&/g; s/"/"/g; s//>/g; s/@/(1)/g; s/A/(2)/g; s/B/(3)/g; s/C/(4)/g; s/D/(5)/g; s/E/(6)/g; s/F/(7)/g; s/G/(8)/g; s/H/(9)/g; s/I/(10)/g; s/J/(11)/g; s/K/(12)/g; s/L/(13)/g; s/M/(14)/g; s/N/(15)/g; s/O/(16)/g; s/P/(17)/g; s/Q/(18)/g; s/R/(19)/g; s/S/(20)/g; s/\n/
/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 なんでも相談プログラム --会話編

#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 <



準備はいいですね


 
 
 
[前へ] [もどる][次へ]
[Home] [目次]
    END2