#! /usr/bin/perl
# おみくじを引く
$role = int(rand(6));
if($role == 0) {
$kuji = '大吉';
$tips = '何をしても絶好調な一日。新しいことにチャレンジしてみると良いでしょう。';
}
elsif($role == 1) {
$kuji = '中吉';
$tips = '良いことが起きます。上を向いて歩くと、UFOを目撃できるかもしれません。';
}
elsif($role == 2) {
$kuji = '小吉';
$tips = 'ちょっとした幸運あり。下を向いて歩くと、小銭が拾えるかも知れません。';
}
elsif($role == 3) {
$kuji = '吉';
$tips = '心の平安あり。トイレで読書すると吉。';
}
elsif($role == 4) {
$kuji = '末吉';
$tips = '運気上昇の兆し。家にこもると吉ですが、家族に掃除機でどつかれるので注意。';
}
else {
$kuji = '凶';
$tips = '災厄の日。入浴すると吉ですが、湯船で眠るとそのまま沈むので注意。';
}
# CGIヘッダの出力
print "Content-type: text/html\n\n";
# HTMLの出力
print "\n";
print "\n";
print "Perlおみくじ\n";
print "今日のあなたの運勢は……$kujiです。
\n";
print "$tips
\n";
print "";