Is there a way to do this in Perl5? I don't have the qr// thing. | [reply] [Watch: Dir/Any] |
my @regexes = ('HELLO(\w+)', 'hello(\w+)', 'Hello(\w+)');
for my $re (@regexes) {
$re =~ s!/!\/!; # escape delimiters
my $eval = '$string =~ /' . $re . '/;';
if ( eval $eval ) {
print "$string matches $re\n";
}
}
It's an ugly hack, and I would very much prefer it if you would promote
world peace, fight hunger and help stop global warming by upgrading your
version of Perl.
[ ar0n -- want job (boston) ]
| [reply] [Watch: Dir/Any] [d/l] |