Mega Code Archive

 

Categories / Perl / System Functions

 

Seed rand with the time or the pid of this process

#!/usr/bin/perl $num=10; srand(time|$$);   while($num){          $lotto = int(rand(10)) + 1;      print "The random number is $lotto\n";      sleep 3;      $num--; }