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

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

regex = ^/d+$

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

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

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

regex = ^\d+$stored_regex$

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

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

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

有任何想法吗？

使用 eval可以帮到你.看看下面的代码,它可以预编译一个准备用于后者的正则表达式：

my $compiled_regexp;
my $regexp = '^\d+$stored_regexp$';
my $stored_regexp = 'a';

eval "\$compiled_regexp = qr/$regexp/;";
print "$compiled_regexp\n";

运算符qr //可用于预编译正则表达式.它允许您构建它但尚未执行它.您可以先使用它构建regexp,然后再使用它们.