Hi ,
Looking at the reg expression ( $playercard1 =~ /10|J|Q|K/ ),
it will match 0, 1, and '10' , J, Q, K
What must I do so that it will match only '10' , 'J', 'Q', and 'K'
Thanks
----- Original Message -----
From: "Rodrick Brown" <[EMAIL PROTECTED]>
#!/usr/bin/perl -w
use strict;
use warnings;
my $playercard1=uc <STDIN>;
print "Player has high card\n" if ( $playercard1 =~ /10|J|Q|K/ )
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/