Chas. Owens wrote:
On Sun, Apr 12, 2009 at 21:58, Gunnar Hjalmarsson <nore...@gunnar.cc> wrote:
Chas. Owens wrote:
my @rank = qw/ 2 3 4 5 6 7 8 9 10 J Q K A /;
my @rank = qw/A 2 3 4 5 6 7 8 9 10 J Q K A /;
------------------^
snip
That depends on who you play with.
Ok.
Also, if you make that change you need to check the for loop as well:
for my $i (0 .. 10) {
Actually no.
$ perl -wle '
@rank = qw/A 2 3 4 5 6 7 8 9 10 J Q K A/;
print map $_."[cdhs]", @rank[10..10+4];
'
Use of uninitialized value $_ in concatenation (.) or string at -e line 3.
J[cdhs]Q[cdhs]K[cdhs]A[cdhs][cdhs]
$
--
Gunnar Hjalmarsson
Email: http://www.gunnar.cc/cgi-bin/contact.pl
--
To unsubscribe, e-mail: beginners-unsubscr...@perl.org
For additional commands, e-mail: beginners-h...@perl.org
http://learn.perl.org/
