You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
9 lines
173 B
Perl
9 lines
173 B
Perl
5 years ago
|
#!/usr/bin/perl
|
||
|
$num=10;
|
||
|
srand(time|$$);
|
||
|
while($num){
|
||
|
$lotto = int(rand(10)) + 1;
|
||
|
print "The random number is $lotto\n";
|
||
|
sleep 3;
|
||
|
$num--;
|
||
|
}
|