●はじめに

形は運勢占いですが、プログラム的には、単に乱数を使って、ランダムにメッセージを表示しているだけです。perlは覚えたてなので、誰にでも理解できる程度のよわよわスクリプトですがな。

●実行例（このページをリロードしてみよう）

●導入手順

１.「unsei.cgi」を入手します

ここをクリックするとファイルが拾えます

これをFTPで自分のサイトに転送します。

２.ファイルのパーミッションを変更します

$chmod 755 unsei.cgi

※「$」はUNIXのプロンプトだから入力する必要はないよ。

３.動作確認をします

$unsei.cgi
大吉

unsei.cgiを何度か実行して、運勢がランダムに表示されればOKです。

４.HTML文書にスクリプトを実行するための1行を入れます

あなたの運勢は<!--#exec cmd="unsei.cgi"-->です

●リスト

#!/usr/local/bin/perl
#運勢占い▲(c)p4room(http://p4room.mda.or.jp/~roro/)

$max = 6;
srand(time|$$);
$a=int(rand($max)) +1;

if ($a==1) {print "大吉";}
elsif ($a==2) {print "小吉";}
elsif ($a==3) {print "中吉";}
elsif ($a==4) {print "末吉";}
elsif ($a==5) {print "凶";}
else {print "大凶";}

exit;