#!/usr/bin/perl print "Content-type:text/html; charset=EUC-JP\n\n"; $res1 = '

'; $res2 = '

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