perl负面向前看不到大字符串

Question

perl负向前视不适用于大字符串(长度> 40000,在活动perl和cygwin perl,版本5.14).我尝试了相同的代码,mingw perl 5.8.8它停止工作长度> 5000的字符串.

我使用的代码是:

my $str = q(A  B);
my $pattern = '(A)(?:(?!(X)).)*(B)';  
if ( $str =~ m/$pattern/ ) {
    print "matched\n";
}

这适用于perl的所有三个版本.但是当我通过添加空格来增加字符串的长度时,模式会停止匹配.

例如: my $str = q(A ...some 50000 spaces... B);

请帮助.

Answer 1

Perl对各种正则表达式操作的大小施加了内部限制(在大多数系统上恰好是带符号的16位整数),以限制堆栈增长. 这个答案有一个非常好的限制细分.

从经验测试来看,当空间计数达到32767时,那就是当你失败时,所以肯定是这个限制.