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


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

Yup, I am specifically generating Perl code (as string). The resulting code can be eval()-ed or embedded in other source code.
  • Comment on Re^2: Putting the stringified Regexp object into code

Replies are listed 'Best First'.
Re^3: Putting the stringified Regexp object into code
by kennethk (Abbot) on Nov 06, 2012 at 19:10 UTC

    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.

[reply]
[d/l]
[select]
      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]

In Section Seekers of Perl Wisdom