Loose-Info.com
Last Update 2008/05/18
TOP - Perl - 関数 - srand

乱数の種を設定します。

srand 式1

式1
乱数の種を生成するための値を表す式

(例)
# 乱数発生の初期準備 # 時刻とプロセスIDから乱数初期値を生成 $seed = (time() ^ ($$ * ($$ << 7))); print "生成に使用する値 : $seed\n"; srand($seed); # 0〜9までの乱数発生 print int(rand(10)) . "\n";

実行結果
生成に使用する値 : 3383342326 6