2007/7/10, Martin Barth <[EMAIL PROTECTED]>:
for (@startingdeck) {
s/A/Ace/;
s/K/King/;
s/Q/Queen/;
s/J/Jack/;
s/C/Club/;
s/H/Heart/;
s/D/Diamond/;
s/S/Spade/;
# s/J/Joker/; ##makes no sense, since j <- jack
}
Instead of multi-regex here,I think using a hash for the replacement is better.
my %fn = (A=>'Ace',B=>'Black',C=>'Club',S=>'Spade',);
for (@startingdeck[0 .. 4]) {
my ($x,$y) = split;
print exists $fn{$x} ? $fn{$x} : $x,"\t";
print exists $fn{$y} ? $fn{$y} : $y,"\n";
}
--
弃我去者,昨日之日不可留.
乱我心者,今日之日多烦忧.
