TOP - Perl - 関数 - srand

乱数の種を設定します。

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

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

print int(rand(10)) . "\n";               # 0〜9までの乱数発生
実行結果
生成に使用する値 : 3383342326
6


Copyright(C) 2006-2011 CLAYPOT. All Rights Reserved.