Mega Code Archive

 

Categories / Perl / System Functions

 

Let system determine seed

srand();   for (1 .. 3) {    print "\n\nAfter seed has been reset\n";    for ( 1 .. 3 ) {       print "  ", 1 + int( rand( 6 ) );    } }