As an aside, you can save yourself a lot of fiddly typing by using maps.
$ perl -E ' > my @suits = qw{ Hearts Diamonds Clubs Spades }; > my @values = qw{ A 2 3 4 5 6 7 8 9 10 J Q K }; > my @deck = > map { my $suit = $_; map { qq{$_ $suit} } @values } @suits; > say for @deck;' A Hearts 2 Hearts 3 Hearts 4 Hearts 5 Hearts 6 Hearts 7 Hearts 8 Hearts 9 Hearts 10 Hearts J Hearts Q Hearts K Hearts A Diamonds 2 Diamonds 3 Diamonds 4 Diamonds 5 Diamonds 6 Diamonds 7 Diamonds 8 Diamonds 9 Diamonds 10 Diamonds J Diamonds Q Diamonds K Diamonds A Clubs 2 Clubs 3 Clubs 4 Clubs 5 Clubs 6 Clubs 7 Clubs 8 Clubs 9 Clubs 10 Clubs J Clubs Q Clubs K Clubs A Spades 2 Spades 3 Spades 4 Spades 5 Spades 6 Spades 7 Spades 8 Spades 9 Spades 10 Spades J Spades Q Spades K Spades
I hope this is helpful.
Cheers,
JohnGG
In reply to Re: array shuffle
by johngg
in thread array shuffle
by boom.roasted
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |