Free CGI Perl PHP Script Olive Design CGI

おみくじ

乱数を発生させるスクリプトを利用したおみくじです。

ファイル名omikuji.cgiを作成し、下のソースを貼り付けてパーミションを755にします。

サンプル

ソース

#!/usr/bin/perl

#randは()で指定した数まで乱数を発生させる関数です。
#intは引数の少数部分を切り捨てて整数にする関数。
#出てきた乱数を$ranに代入  
$ran = int(rand(5));

#HTMLの表示
print <<"HTML";
Content-type: text/html

<html>
今日のあなたの運勢は<font color=red size=5><b>
HTML
#乱数振り分け
if ($ran == 4 ){ print "大吉";}
elsif($ran == 3 ){ print "中吉";}
elsif($ran == 2 ){ print "小吉";}
elsif($ran == 1 ){ print "吉";}
else {print "凶";}

print "</font></b>です。</html>";


__END__
Perl PHP Free CGI Script OliveDesign CGI

Perl PHP Free CGI Script OliveDesign CGI

プライバシーポリシー / 特定商取引法に基づく表示