#!/usr/bin/perl ## おみくじスクリプト ## lucky.cgi v1.6 (1998/07/19) ## (c)1997-1999 Kent Web (webmaster@kent-web.com) ## http://www.kent-web.com/ ## 基本設定 ## 0=おみくじ 1=URLジャンプ 2=SSIモード $kind = 0; ## --- 出力結果を設定 ## --- URLへジャンプさせる場合は絶対パスでファイルを指定 ($kind=1; のとき） $luck1 = '大吉

運は最高です。油断は禁物。'; $luck2 = '中吉

これからますます絶好調。'; $luck3 = '小吉

幸運はすぐそこに来ています。'; $luck4 = '吉

これからが努力次第です。'; $luck5 = '凶

くよくよするな。これから上向く。'; ## 基本設定ここまで # 乱数を発生 &rand; # おみくじ if ($kind == 0) { &omikuji; } # URLジャンプ elsif ($kind == 1) { print "Location: $luck\n\n"; } # SSIモード else { print "$luck\n"; } exit; ## --- 乱数を発生 sub rand { srand; $x = rand; # $x は 0 から 100 までの整数値を返します。 $x = int($x * 100); # 確率 20% if ($x < 20) { $luck = "$luck1"; } # 確率 20% elsif ($x < 40) { $luck = "$luck2"; } # 確率 30% elsif ($x < 70) { $luck = "$luck3"; } # 確率 20% elsif ($x < 90) { $luck = "$luck4"; } # 確率 10% else { $luck = "$luck5"; } } ## --- おみくじHTMLを出力 ($kind=0; のとき） sub omikuji { print "Content-type: text/html\n\n"; print <<"HTML"; 今日の運勢

あなたの今日の運勢

$luck

HTML }