in reply to Re: Pattern Matching Query
in thread Pattern Matching Query
Good implementation, I consider it the best of those posted because it explicitly matches only those conditions that were given in the example as you say, as opposed to some of the others which match considerably more. With poker, you don't really want to screw up :)
I offer a slight modification:
if (join('','a'..'m') =~ qr/$sv/ && $sv =~/^[a-m]{5}$/){ print "Matched\n"; }
Which just means you don't need to specify the whole of the range, just the start and end, you could sub it like this:
sub match_range { my ($string, $start, $end, $length) = @_; if (join('',$start .. $end) !~ qr/$string/) { return 0; } if ($string !~ /^[${start}-${end}]{$length}$/) { return 0; } return 1; }
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Pattern Matching Query
by Aristotle (Chancellor) on Sep 18, 2002 at 07:22 UTC | |
by PhiRatE (Monk) on Sep 18, 2002 at 09:46 UTC | |
by Aristotle (Chancellor) on Sep 18, 2002 at 17:46 UTC | |
by PhiRatE (Monk) on Sep 18, 2002 at 22:44 UTC | |
by Aristotle (Chancellor) on Sep 18, 2002 at 23:22 UTC | |
|
In Section
Seekers of Perl Wisdom