乱数発生
乱数を発生させるにはrandを使います。

rand 0から引数の範囲で乱数を発生します。乱数は小数点以下を含みます。
   引数を省略すると0〜1の範囲になります。
    例 $data = rand(10);
      $data = int(rand(5));

srand randで生成する乱数の種をセットします。但し、最近のPerlでは不要のようです。
    例 srand;
■プログラム (sample22.cgi)
srand;
foreach (0 .. 4) {
$data = rand(10);
print "$data<br>";
}
■実行結果
9.02130126953125
1.7193603515625
5.047607421875
2.56744384765625
7.177734375


HOME Copyright (C) CGI-design All Rights Reserved.