#!/usr/bin/perl # ↑このパスはプロバイダによって違うので調べて設定してください。 ########################################## # ANGEL Version 1.0 # # Script written by KITCHEN(Hisao Mori) # # Created on: 99年09月08日 # ########################################## ############## 初期設定の部分 ####################### ### いくつの html を置くかここで決定してください #l1.htm～l45.htmまでの場合 $all = 54; #占い結果のHTMLを置くディレクトリーの設定 #このディレクトリーは直接ブラウザでは見えないように # index.html を参照してください。 $dir = '/var/www/vhosts/rosemary.ne.jp/httpdocs/love'; ############### 初期設定はここまでです ############## #0から$allまで整数の乱数を発生 #0から100(100は含まず）までなら$a=int(rand()*100);　とする。 srand; $a=int(rand()*$all); #乱数発生は0からなので１プラスする $a++; #a数.htmの名前 $file = "$dir/l$a.htm"; #ファイルを開く open(DATA,"$file")|| die &error("$fileを読み込みopen出来ません "); flock(DATA,2); @lines = ; flock(DATA,8); close(DATA); #画面表示 print "Content-type: text/html\n\n"; print "@lines"; exit; sub error { print "Content-type: text/html\n\n"; print<

$_[0]

ERR_M exit; }