';
$res2 = '
';
$res3 = ' ';
&getResult;
&dti;
exit;
## 乱数を発生させ無作為に結果を取得する ##
sub getResult {
#乱数生成
srand;
$r = rand;
# $rは 0から1までの少数値。それを100倍し、0から100までの整数に変換
$r = int($r * 100);
# 0 - 33
if ($r < 32) {
$result = $res1;
}
# 33 - 66
elsif ($r < 65) {
$result = $res2;
}
# 67 - 100
else {
$result = $res3;
}
}
## ＨＴＭＬとして出力 ##
sub dti {
print <
$result
|