The code below at least passes your tests.
Hope it helps,
Greg
#! /usr/bin/perl
use warnings;
use strict;
use constant {
MATCH=> 1,
NO_MATCH => 0,
};
my @tests = (
[ "winter tire",=> MATCH ],
[ "tire", => MATCH ],
[ "retire",
In article <[EMAIL PROTECTED]>,
Dr.Ruud <[EMAIL PROTECTED]> wrote:
: I negated the test, to make the regex simpler: [...]
Yes, your approach is simpler. I assumed from the "need it all
in one pattern" constraint that the OP is feeding the regular
expression to some other program that is looki
