一段时间后 eval 无法匹配正则表达式

Question

我从用户那里得到的第一个输入是节点的树（具有显着的高度和深度）。每个节点都包含一个正则表达式和修饰符。这棵树被保存在内存中。这仅在应用程序启动时执行一次。

第二个输入是从树的根节点开始匹配的值，直到找到完全匹配的叶节点（深度优先搜索）。匹配确定如下：

my $evalstr = <<EOEVAL;
if(\$input_value =~ /\$node_regex/$node_modifiers){
    1;
}else{
    -1;
}
EOEVAL

no strict 'refs';
my $return_value = eval "no strict;$evalstr";

第二输入由源在应用程序的整个生命周期中连续提供。

问题： 上面的代码在一段时间内（大约 10 小时）运行得很好，但是在连续输入这一次之后，eval 不断开始失败，我在 $return_value 中得到 -1。应用程序的所有其他功能都工作得很好，包括其他比较语句。如果我重新启动应用程序，匹配会再次启动并给出正确的结果。

观察结果： 1）我多次收到深度递归警告，但我在某处读到这是正常的，因为考虑到输入树的大小，我的堆栈大小多次会超过 100。 2）如果我使用简单的逻辑进行正则表达式匹配而没有如上所述的 eval，那么应用程序的任何连续运行都不会出现任何问题。

if($input_value =~ /$node_regex/){
    $return_value=1;
}else{
    $return_value=-1;
}

但随后我必须牺牲动态修饰符，按照 Dynamic修饰符

检查： 1）我检查了$@，但它是空的。 2）还打印了$input_value、$node_regex和$node_modifiers的各自值，它们是正确的并且应该与故障点处的正则表达式匹配。 3) 我检查了内存使用情况，但随着时间的推移，perl 进程的内存使用情况相当稳定。 4）使用perl 5.8.8然后将其更新到5.12，但仍然面临同样的问题。

问题 ： 造成上述问题的原因可能是什么？为什么一段时间后会失败，但重新启动应用程序后却可以正常工作？

Answer 1

一个明确的答案需要比我更多的 Perl 内部知识。但是考虑到您正在做的事情，连续解析大树，似乎可以安全地假设已达到某些限制，某些资源已耗尽。我会仔细检查事情并确保在解析的每次迭代之间释放所有资源。我会特别关注复杂结构中的循环引用，并确保不存在循环引用。