#!/usr/bin/perl
print "Content-type:text/html; charset=EUC-JP\n\n";
$res1 = '';
$res2 = '';
$res3 = '';
$res4 = '';
$res5 = '';
&getResult;
&dti;
exit;
## 乱数を発生させ/無作為に結果を取得する ##
sub getResult {
#乱数生成
srand;
$r = rand;
# $rは 0から1までの少数値。それを100倍し、0から100までの整数に変換
$r = int($r * 100);
# 0 - 20
if ($r < 21) {
$result = $res1;
}
# 21 - 40
elsif ($r < 41) {
$result = $res2;
}
# 41 - 60
elsif ($r < 61) {
$result = $res3;
}
# 61 - 80
elsif ($r < 81) {
$result = $res4;
}
# 81 - 100
else {
$result = $res5;
}
}
## ＨＴＭＬとして出力 ##
sub dti {
print <
$result