http://www.perlmonks.org?node_id=1002562


in reply to Re^2: Putting the stringified Regexp object into code
in thread Putting the stringified Regexp object into code

How are you embedding? This sounds like something you should be solving using modules if you need to share the result among multiple scripts. But as I said, the code should stand as is. I would point out that the qr in $code = "if (\$data =~ qr/$re/) { blah() }"; is unnecessary.

#11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

Replies are listed 'Best First'.
Re^4: Putting the stringified Regexp object into code
by sedusedan (Monk) on Nov 06, 2012 at 19:16 UTC
    Please see my reply to Anomalous. I am generating a Perl code in a string, where $re will become literal in the generated code. The qr// can be replaced with m//, but it's rather necessary.
[reply]
[d/l]
      No, it's not necessary -- I said the qr was unnecessary, not qr//. 
      #!/usr/bin/perl
use strict;
use warnings;

my $re = qr(/);

$re =~ s!/!\\/!g;
my $code = "if (\$data =~ /$re/) { blah() }";

my $data = '/';
eval $code;

sub blah {
    print "hi"
}

      [download]

      I understand that you are auto-generating code; perhaps roboticus's response in Re^3: Putting the stringified Regexp object into code will make my point more clearly. There are times when string evaluated code is appropriate, but this would not be a time I'd select it.

      #11929 First ask yourself `How would I do this without a computer?' Then have the computer do it the same way.

[reply]
[d/l]
[select]

        Ah, sorry. You're right of course. I have removed the "qr".

        Also see my response to roboticus. Point taken, but I do want to generate string code in this case. eval()-ing the string is just one, not the only thing, I want to do with the it.

[reply]

In Section Seekers of Perl Wisdom