set value of a variable to a regexp

pc2 has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: set value of a variable to a regexp by moritz (Cardinal) on Aug 19, 2007 at 09:58 UTC
You can use the qr// operator, that even works with modifiers: `my $regex = qr/(.)\1+/i; @ret = grep m/$regex/, @values;` [download] But for me your code works as well. (Update: removed p6ism, tinita++) Perl 6 in German -- Difficult Sudoku	[reply] [d/l]
Re: set value of a variable to a regexp by FunkyMonk (Bishop) on Aug 19, 2007 at 10:01 UTC
Your code looks OK, are you sure the problem isn't with what you're trying to match against? Try this: `my $re = 'fo+\|zzz'; my @matches = grep /$re/, qw/ f fo foo bar foobar zzzz /; print "@matches";` [download] Output: `fo foo foobar zzzz` [download]	[reply] [d/l] [select]
Re: set value of a variable to a regexp by codeacrobat (Chaplain) on Aug 19, 2007 at 11:51 UTC
Maybe what you are looking for is Regexp::Assemble. -- snip source - When using tracked mode, after a successful match is made, returns the original source pattern that caused the match. In Perl 5.10, the $^R variable can be used to as an index to fetch the correct pattern from the object. If no successful match has been performed, or the object is not in tracked mode, this method returns "undef". -- snap `use Regexp::Assemble; my $r = Regexp::Assemble->new->track(1)->add(qw(foo? bar{2} [Rr]at)); for my $w (qw(this food is rather barren)) { if ($w =~ /$r/) { print "$w matched by ", $r->source($^R), $/; } else { print "$w no match\n"; } }` [download] prints `this no match food matched by foo? is no match rather matched by [Rr]at barren matched by bar{2}` [download]	[reply] [d/l] [select]