Seed rand with the time or the pid of this process : rand « System Functions « Perl

1. Perl
2. System Functions
3. rand

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--;
}

   
    
    
    
    
    
  

Related examples in the same category