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

L_WC

回复 1# 超级细菌

回复后页面报错了，以为没发成功，结果发重复了，建议站长看看....  参考上一条...

sunzhiguolu

回复 20# L_WC
大师，您这个代码中的这句话 能否帮忙解释下:
my @cards = glob '{♥,♠,♦,♣,}{2,3,4,5,6,7,8,9,10,A,J,Q,K}';

谢谢。

L_WC

回复 22# sunzhiguolu

类似Linux  命令 echo {1,2}{1,2,3} 11 12 13 21 22 23

sunzhiguolu

1. #!/usr/bin/perl
   
2. use strict;
   
3. use warnings;
   
4. use utf8;
   
5. use List::Util qw 'shuffle';
   
6. 
   
7. sub Builder{
   
8.         my @aCards = map {my $suit = $_; map {join ('', $suit, $_)} ('A', 2 .. 10, 'J', 'Q', 'K')}
   
9.         qw /黑桃 方块 梅花 红心/;
   
10.         [@aCards, 'Joker0', 'Joker1'];
    
11. }
    
12. 
    
13. binmode (STDOUT, ':encoding(cp936)');
    
14. 
    
15. my $raCards = Builder ();
    
16. my $n = my $peak = 18;
    
17. while ($n >= $peak){
    
18.         my @aPos = shuffle (0 .. $#$raCards);
    
19.         @{$raCards}[@aPos] = @{$raCards};
    
20.         my @aRand = splice (@{$raCards}, 0, $n);
    
21.         print join ("\n", @aRand, '', '');
    
22.         $n = @{$raCards} if ($n > ($#$raCards + 1));
    
23. }
    

复制代码

perl abc.pl
----------------------------
黑桃2
方块6
方块K
梅花2
红心9
黑桃4
Joker0
红心10
红心K
方块A
红心3
方块2
方块Q
方块5
梅花3
梅花6
方块9
黑桃10

梅花A
方块7
红心5
黑桃8
红心J
黑桃7
黑桃J
黑桃6
红心2
红心A
方块4
黑桃A
方块J
方块10
梅花Q
黑桃3
梅花9
红心8

梅花8
方块3
梅花10
黑桃K
梅花4
黑桃5
红心Q
红心6
方块8
梅花K
红心7
梅花5
红心4
梅花7
黑桃Q
黑桃9
梅花J
Joker1