#!/usr/local/bin/perl $\ = "\n"; #入力を整理。 read(STDIN,$_,$ENV{CONTENT_LENGTH}) ; @argv = split /&/; foreach(@argv){ ($key,$val) = split /=/; $arg{$key} = $val; } # リロード対策。 $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 require "../jcode.pl"; &jcode'h2z_sjis(*val); # 半角カナ→全角(SJIS)変換 &jcode'convert(*val,'sjis'); # SJIS変換 $val =~ s///g; $val =~ s/\+/ /g; $val =~ s/\t//g; $val =~ s/\r\n/\n/g; # Win→Unix $val =~ s/\r/\n/g; # Mac→Unix $val =~ s/&/&/g; $val =~ s/"/"/g; $val =~ s//>/g; $_ = $val; 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; # # $\ = "\n"; print < #33 意志決定支援プログラム --おことば編

#33 意志決定支援プログラム --おことば編


  END if ($_ eq ""){ print "さあて、用件がないなら、帰った、帰った。
"; print "
","\"ひけつ\"","\"ひけつ\"","\"ひけつ\"","
"; }else{ print "ご相談の件
"; print "
"; print $_,"
"; print "
"; $\ = "\n"; $i = time; $socra = $i % 2; if($socra == 0){ $socra = "よいよお"; $socjpg = "\"かけつ\""; }else{ $socra = "ダメーッ"; $socjpg = "\"ひけつ\""; } $i = $i / 2; $gauta = $i % 2; if($gauta == 0){ $gauta = "よいよお"; $gaujpg = "\"かけつ\""; }else{ $gauta = "ダメーッ"; $gaujpg = "\"ひけつ\""; } $i = $i / 2; $kokyu = $i % 2; if($kokyu == 0){ $kokyu = "よいよお"; $kojpg = "\"かけつ\""; }else{ $kokyu = "ダメーッ"; $kojpg = "\"ひけつ\""; } print "
"; print "そくら「", $socra ,"」
" ; print "
",$socjpg,'
',"
"; print 'がうた 「', $gauta,"」
" ; print "
",'
',$gaujpg,'
',"
"; print '孔さん 「', $kokyu,"」
" ; print "
"; print "
",'
',$kojpg,'
',"
"; $time = localtime ; open(LOG,">>isi.log"); print LOG $_,"\t そくら",$socra,"\t がうた",$gauta,"\t 孔さん",$kokyu,"\t",$time ; close(LOG); } print <
 
 
 
[前へ] [もどる][次へ]
[Home] [目次]
    END2