#!/bin/perl #-------------------------------- # おみくじを引くプログラム # Ver-1.1 # CREATE:1998.08.10 # UPDATE:1999.04.21 # # AUTHOR:Kiichi Suga # #-----------初期設定------------- $kujidir = './kuji/kuji_' ; # #-----------くじを引く----------- srand(time | $$); $bangou = int(rand(50)) + 1 ; if ( $bangou < 10 ){ $kujifile = "${kujidir}0${bangou}.gif" ; }else{ $kujifile = "${kujidir}${bangou}.gif" ; } # #-----------HTMLの書き出し------- print "Content-type: text/html\n\n" ; print "\n" ; print "
\n" ; print "\n" ; print "キイチ神社 |
\n" ; print "キイチ君のホームページにいきます。
\n" ; print "