Re^2: Putting the stringified Regexp object into code

[sedusedan]

Yup, I am specifically generating Perl code (as string). The resulting code can be eval()-ed or embedded in other source code.

[kennethk]

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.

[sedusedan]

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.

[kennethk]

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"
}

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.