System Functions Perl

  1. Home
  2. Perl
  3. System Functions
  4. Let system determine seed
srand();  
for (1 .. 3) {
   print "\n\nAfter seed has been reset\n";
   for ( 1 .. 3 ) {
      print "  ", 1 + int( rand( 6 ) );
   }
}