>>743
ありがとうございます。

頻繁に呼び出す予定ので
srand(time ^ $$)
はやめておいて、かと言って
srand (time ^ $$ ^ unpack "%L*", `ps axww | gzip`)
では時間がかかり過ぎるので、
結局、
srand(time ^ ($$ + ($$ << 15)))
にするとこで落ち着きました。