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

L_WC

回复 1# 超级细菌

1. <div>use List::Util 'shuffle';</div><div>use v5.10;</div><div>my @cards = glob '{♥,♠,♦,♣,}{2,3,4,5,6,7,8,9,10,A,J,Q,K}';</div><div>say @{[shuffle @cards]}[0..9];</div>

复制代码

L_WC

回复 1# 超级细菌

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

L_WC

回复 22# sunzhiguolu

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