Perl中正则表达式的双重插值

我有一个Perl程序,它在配置文件中存储正则表达式.它们的形式如下:

regex = ^/d+$

在其他地方,正则表达式从文件中解析并存储在变量中 - $regex.然后我在检查正则表达式时使用变量,例如

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

我希望能够在配置文件中包含perl变量,例如

regex = ^\d+$stored_regex$

但我无法弄清楚如何做到这一点.

当Perl解析正则表达式时,它们会被解释两次.首先扩展变量,然后解析正则表达式本身.

我需要的是一个三阶段过程:首先插入$regex,然后插入它包含的变量,然后解析生成的正则表达式.前两个插值都需要"正则表达式识别".例如,他们应该知道字符串包含$锚等...

有任何想法吗？

您可以在配置文件中定义regexp,如下所示:

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

但是,您需要在Perl程序中执行此操作时禁用正在使用regexp的块中的安全检查:

use re 'eval';