#!/usr/bin/perl #randは()で指定した数まで乱数を発生させる関数です。 #intは引数の少数部分を切り捨てて整数にする関数。 #出てきた乱数を$ranに代入。 $ran = int(rand(5)); #HTMLの表示 print <<"HTML"; Content-type: text/html 今日のあなたの運勢は HTML #乱数振り分け if ($ran == 4 ){ print "大吉";} elsif($ran == 3 ){ print "中吉";} elsif($ran == 2 ){ print "小吉";} elsif($ran == 1 ){ print "吉";} else {print "凶";} print "です。"; __END__