srand Zufallsgenerator

[Sebastian]

ganz recht, srand initialisiert den zufallsgenerator. zusätzlich solltest du aber versuchen, die
Initialisierungsfunktion srand mit einer Halbwegs zufaelligen zahl aufzurufen, z. B. so:

srand(time ^ $$ ^ unpack "%32L*", /usr/binps /usr/bin/gzip);

dein code:

srand(time ^ $$ ^ unpack "%32L*", /usr/binps /usr/bin/gzip);
$t = &zufall(0,$m-1);
$u = &zufall(0,$m-1);

sub zufall
{

»»  return int(rand($_[1]-$_[0]+1))+$_[0];

}