Double interpolation of regular expressions in Perl

Question

I have a Perl program that stores regular expressions in configuration files. They are in the form:

regex = ^/d+$

Elsewhere, the regex gets parsed from the file and stored in a variable - $regex. I then use the variable when checking the regex, e.g.

$lValid = ($valuetocheck =~ /$regex/);

I want to be able to include perl variables in the config file, e.g.

regex = ^\d+$stored_regex$

But I can't work out how to do it.

When regular expressions are parsed by Perl they get interpreted twice. First the variables are expanded, and then the the regular expression itself is parsed.

What I need is a three stage process: First interpolate $regex, then interpolate the variables it contains and then parse the resulting regular expression. Both the first two interpolations need to be "regular expression aware". e.g. they should know that the string contain $ as an anchor etc...

Any ideas?

Answer 1

You can define the regexp in your configuration file like this:

regex = ^\d+(??{$stored_regex})$

But you will need to disable a security check in the block where you're using the regexp by doing this in your Perl program:

use re 'eval';