同じパターンの乱数を生成する

srand の引数に同じ値をセットすれば、seed が同じになる

for (0..3) {
  srand $seed;
  for (0..5) {
    printf "%.03f\n", rand 100;
  }
  print "----\n";
}

結果 ($seed == 1 のとき)
4.163
45.449
83.482
33.599
56.549
0.177
----
4.163
45.449
83.482
33.599
56.549
0.177
----
4.163
45.449
83.482
33.599
56.549
0.177
----
4.163
45.449
83.482
33.599
56.549
0.177
----

perl5.6(solaris)/perl5.8(linux)/perl5.8(cygwin) 全部一緒だった