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

Question

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

regex = ^/d+$

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

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

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

regex = ^\d+$stored_regex$

但我不知道该怎么做。

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

我需要的是一个三个阶段的过程:
第一次插值 $regex ，然后插入它包含的变量，然后解析生成的正则表达式。
前两个插值都需要“正则表达式感知”。例如他们应该知道字符串包含 $作为 anchor 等...

有任何想法吗？

Answer 1

您可以像这样在配置文件中定义正则表达式:

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

但是您需要通过在 Perl 程序中执行此操作来禁用使用正则表达式的块中的安全检查:

use re 'eval';