';
$res2 = '
';
$res3 = '
';
$res4 = '
';
$res5 = '
';
$res6 = '
';
$res7 = '
';
&getResult;
&dti;
exit;
## 乱数を発生させ無作為に結果を取得する ##
sub getResult {
#乱数生成
srand;
$r = rand;
# $rは 0から1までの少数値。それを100倍し、0から100までの整数に変換
$r = int($r * 100);
# 0 - 13
if ($r < 14) {
$result = $res1;
}
# 14 - 27
elsif ($r < 28) {
$result = $res2;
}
# 28 - 41
elsif ($r < 42) {
$result = $res3;
}
# 42 - 55
elsif ($r < 56) {
$result = $res4;
}
# 56 - 69
elsif ($r < 70) {
$result = $res5;
}
# 70 - 83
elsif ($r < 84) {
$result = $res6;
}
# 84 - 100
else {
$result = $res7;
}
}
## ＨＴＭＬとして出力 ##
sub dti {
print <
$result
|