shell 脚本

jialeiit

请撰写一简易的乐彩程式，可在01 ~ 42 之间任意产生六个号码

同上，请再加上：可控制要输出多少组号码的功能。

请撰写一支对奖程式(输入开奖号码之后，告知中了那些号码)。


对linux的shell感兴趣，可运用就不行了，求指教，这是我在卧龙小三的书上看见的，谢谢

mcshell

发错版块了吧

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. my ( $run_lottery, $group_lottery, $hash ) = ( 6, 3 );  #每组6个，一共3组
   
5. my  $lottery_num = "10,32,11,21,33,05";
   
6. for my $lottery ( 1 .. $group_lottery ) {
   
7.     for ( 1 .. $run_lottery ) {
   
8.         my $rand_num = sprintf "%02d", 1 + int( rand(42) );
   
9.         redo if $hash->{$lottery}->{$rand_num}++;
   
10.     }
    
11. }
    
12. for my $lottery ( keys %$hash ) {
    
13.             my $hit_count = 0;
    
14.     for ( keys %{ $hash->{$lottery} } ) {
    
15.         print "$_ ";
    
16.         ++$hit_count if $lottery_num =~ /$_/;
    
17.     }
    
18.     print "|$hit_count\n";
    
19. }
    

复制代码

1. 22 33 34 10 17 29 |2
   
2. 27 18 08 30 17 15 |0
   
3. 30 10 26 23 09 17 |1

复制代码

grshrd49

楼主是台湾人吧
程式..软体....台湾人都这么说

1. use strict;
   
2. 
   
3. my $count = 4;                #几组中将好吗
   
4. my $long = 6;        #每组几个中奖号码
   
5. my @mylottery = (1,2,3,4,5,6);        #我的彩票
   
6. my @lottery;
   
7. my (%array, @arr);
   
8. for(1..$count){
   
9.         %array = undef;
   
10.         my @k = undef;
    
11.         while(1){
    
12.                 $array{int (1+rand 42)}++;
    
13.                 @k = keys  %array;
    
14.                 last if (@k == $long);
    
15.         }
    
16.         @k = sort {$a<=>$b} @k;
    
17.         push @arr,\@k;
    
18. }
    
19. 
    
20. for my $do1 (@arr){
    
21.         @lottery = ();
    
22.         for (@$do1){
    
23.                 for my $do2 (@mylottery){
    
24.                         push @lottery,$_ if ($_ == $do2);
    
25.                 }
    
26.         print "$_ ";
    
27.         }
    
28.         print "|";
    
29.         print "$_ " for (@lottery);
    
30.         print "\n";
    
31. }
    

复制代码

rubyish

1. #!/usr/bin/perl
   
2. use 5.018;
   
3. my $lot = [qw/01 05 34 21 12 18/];
   
4. sub Luck {
   
5.     my ( $n, %N ) = shift || 6;
   
6.     $N{ sprintf '%02d', ( rand 42 ) + 1 }++ until keys %N == $n;
   
7.     [ keys %N ];
   
8. }
   
9. sub Check {
   
10.     my ( $L, %S ) = ( shift, map { $_ => 1 } @{ +shift } );
    
11.     my @W = grep $S{$_}, @$L;
    
12.     say @W > 1 ? map "中奖号码: $_$/", @W : "也许下次吧。";
    
13. }
    
14. Check $lot, Luck;

复制代码

1. 中奖号码: 01
   
2. 中奖号码: 34

复制代码

1. 也许下次吧。

复制代码