perl实例精解的一道题，求解

超级细菌

编写一段脚本 , 从一叠纸牌中随机抽取 10 张 , 并打印结果值 。
a. 该脚本应当先借助 foreach 循环构建一套 52 张牌 。
b. 外层循环负责按照花色遍历整套纸牌:
梅花、 方块 、 红桃 、 黑桃 。 内层循环则针对每一种花色
遍历所有数字 : A 、到 10 、 J 、 Q 以及 K 。 从各花色获得的纸牌都将赋值到一个数组中 。
c. 使用 rand() 函数从上述数组中随机获得一张纸牌 。
这样做便能保证获得的 10 张纸牌互不重复 。

zhlong8

#!/usr/bin/perl -w

use 5.012;
use List::Util 'shuffle';
use Data::Dumper;

my @cards;

for my $color ('梅花', '方块', '红桃', '黑桃') {
    for my $point ( 'A', 2 .. 10, 'J', 'Q', 'K') {
        push @cards, [$color, $point];
    }
}

print Dumper [(shuffle @cards)[0 .. 9]]

seufy88

#!/usr/bin/perl -w

use 5.012;
use List::Util 'shuffle';
use Data:umper;

my @cards;

for  ...
zhlong8 发表于 2011-03-08 15:19

遇到生疏的模块又高兴又怕，高兴的是学到新模块了，怕的是我为什么没用过看过这个模块

zhlong8

模块是个积累的过程，问题这个 List::Util 是标准模块之一

超级细菌

1. #!/usr/bin/perl -w
   
2. @color=('梅花','方块','红桃','黑桃');
   
3. @number=('A',2..10,'J','Q','K');
   
4. foreach $a (@color) {
   
5.         foreach $b (@number) {
   
6.         push (@c,$a.$b);
   
7.         }
   
8. }
   
9. for ($d=0;$d<10;$d++) {
   
10.      $e=(int rand (52))-1;
    
11.      print "$c[$e]\n";
    
12. }

复制代码

今天突然看到之前发的这个问题，楼上的给的答案没有按照题目要求来，请高手看下我写的这个，我觉得很罗嗦，请指正，谢谢！

xfoucs

今天突然看到之前发的这个问题，楼上的给的答案没有按照题目要求来，请高手看下我写的这个，我觉得很罗嗦， ...
超级细菌 发表于 2011-03-25 14:46

方块J
黑桃2
黑桃J
黑桃2
红桃3
黑桃10
红桃5
黑桃8
红桃K
黑桃2

运行了一次就发现有3个重复的

2gua

zhlong8

超级细菌

不是吧？太失望了，{:3_194:}还得再改改

kexinqw

#!/usr/bin/perl -w
@color=qw('方块' '黑桃' '红桃' '梅花');
@sign=qw(A J Q K);
@num=(2..10);
@num1=(@sign,@num);
$i=0;
foreach $color(@color)
{
    foreach $num1(@num1)
   {
            $v[$i]=$color.$num1;
            #print "${v[$i]}\n";
             $i++;
   }
}
$flag=0;
foreach (1..10){
    $rand=rand(52)+1;
    $rand=int($rand);
    if($flag!=$rand)
   {
        print "$v[$rand]\n";
                $flag=$rand;
   }
    else
    {
        $_--;
    }
}