Re: calling subroutines within a regular expression?

if ($s =~ /${\REGEX}/) {
[download]

or:

my $re = REGEX;
if ( $s =~ /$re/ ) {
[download]

But then what's the point of using constant? May as well:


my $REGEX = qr/cat/;
#...
if ( $s =~ /$REGEX/ ) {
[download]

Comment on Re: calling subroutines within a regular expression? Select or Download Code

Replies are listed 'Best First'.
Re^2: calling subroutines within a regular expression? by Your Mother (Archbishop) on Apr 03, 2009 at 23:17 UTC
One more for "fun"- `if ( $s =~ /${+REGEX}/ ) { ...`	[reply] [d/l]
Re^3: calling subroutines within a regular expression? by AnomalousMonk (Archbishop) on Apr 04, 2009 at 00:43 UTC
This doesn't seem to work: `>perl -wMstrict -le "use constant RX => qr{ [atc]{3} }xms; my $s = 'the cat in the hat'; print 'found' if $s =~ /${+RX}/; print qq{found a $1} if $s =~ /(${+RX})/; " Use of uninitialized value in regexp compilation ... found Use of uninitialized value in concatenation (.) or string ... found a` [download]	[reply] [d/l]
Re^4: calling subroutines within a regular expression? by Your Mother (Archbishop) on Apr 05, 2009 at 05:30 UTC
You're right. It looked like it worked on the original to me because it matched "cat" against "" which "found" it. The + is a way to force constants to evaluate, also works, in some contexts, with spelling it out as the sub it is, `RX()`. Doesn't work here though. :(	[reply] [d/l]
Re^2: calling subroutines within a regular expression? by AnomalousMonk (Archbishop) on Apr 04, 2009 at 00:51 UTC
And then there is the always useful (if ever-homely): `>perl -wMstrict -le "use constant RX => qr{ [atc]{3} }xms; my $s = 'the cat in the hat'; print qq{found a $1} if $s =~ m{ ( @{[ RX ]} ) }xms; " found a cat` [download]	[reply] [d/l]