lottery程序

[root@perl ~]# more lottery
#!/usr/bin/perl -w
sub lottery{
my %num1;
my %num2;

do{
  my $rn = int(1 + rand 35);
  $num1{$rn} = $rn;
 }while(scalar keys %num1 < 5);

do{
  my $rn = int (1 + rand 12);
   $num2{$rn} = $rn;
  }while(scalar keys %num2 < 2);

print join('+',(sort { $a <=> $b } keys %num1))."-",join('+',(sort { $a <=> $b }
 keys %num2))."\n";
}
$n=<STDIN>;
for($i=1;$i<=$n;$i++){
&lottery;
}
[root@perl ~]# ./lottery
10 
11+24+28+29+30-1+2
9+16+19+21+24-4+5
2+7+21+27+34-6+9
8+12+15+30+34-9+11
11+13+16+24+25-2+10
15+18+22+27+31-3+9
1+5+8+18+23-9+12
8+12+14+20+25-4+11
19+22+28+29+34-7+8
2+4+6+17+27-4+5
此彩票程序是由ynchnluiti（cu网友）和我联合完成，运行程序后输入一个数值如10就可以得到10组大乐透的号码，呵呵，只是可惜啊，没有中过500万啊，努力吧，兄弟们!