乱数発生
乱数を発生させるには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.