ｉちゃんのうらない on WEB

#!/usr/local/bin/perl # ファイル名は、 # idata.dat : 文章前半、idatb.dat : 文章後半 # コードはsjis、各文字列（文章）は、サーバーサイドの処理系の改行コードに合わせてください。 ### 変数設定部 # データファイルの入っているディレクトリ # 最後に/をつけない事 $basedir = "."; $mlto = 'shibumi@a4.ctktv.ne.jp'; ### 本体 print "Content-type: text/html\n\n"; &main; sub main { &text_firsthalf; &text_secondhalf; &select_text; &show_html; } ##### データファイルからの読込み sub text_firsthalf { $firsthalf = "$basedir/idata.dat"; open(FILE, "$firsthalf"); @data01 = ; close(FILE); $size01 = @data01; } sub text_secondhalf { $secondhalf = "$basedir/idatb.dat"; open(FILE, "$secondhalf"); @data02 = ; close(FILE); $size02 = @data02; } ##### 乱数発生 sub select_text { srand(time|$$); $hi01 = int(rand($size01)); $hi02 = int(rand($size02)); } ##### 表示 sub show_html { $htmlbuf = &html; print "$htmlbuf"; } ##### 表示する内容 sub html { " ｉちゃんのうらない on WEB

ｉちゃんの一言

$\"i's$

$data01[$hi01] $data02[$hi02]

［top］

$ENV{'REMOTE_ADDR'}
$\"KACounter\"$

Macintosh用はここからどうぞ

★メールはこちらへ($mlto)★

"; }