perl實(shí)例精解的一道題，求解

L_WC

回復(fù) 1# 超級(jí)細(xì)菌

回復(fù)后頁(yè)面報(bào)錯(cuò)了，以為沒(méi)發(fā)成功，結(jié)果發(fā)重復(fù)了，建議站長(zhǎng)看看....  參考上一條...

sunzhiguolu

回復(fù) 20# L_WC
大師，您這個(gè)代碼中的這句話 能否幫忙解釋下:
my @cards = glob '{♥,♠,♦,♣,}{2,3,4,5,6,7,8,9,10,A,J,Q,K}';

謝謝。

L_WC

回復(fù) 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. }
    

復(fù)制代碼

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