当它固定在字符串的前面时,为什么这个后置断言不起作用？运行以下代码,您将看到第一个测试通过,但第二个测试仅通过^锚点变化,但失败了.
use Test::More tests => 2;
my $s = '/123/456/hello';
$s =~ s{(?<=/)\d+(?=/\d+/hello)}{0}; # unanchored
is($s,'/0/456/hello','unanchored'); # passes
$s = '/123/456/hello';
$s =~ s{^(?<=/)\d+(?=/\d+/hello)}{0}; # anchored
is($s,'anchored'); # fails
将^移入后视断言对我来说不是一个选项(这是一个极其简化的例子),但确实解决了这个问题.我找到了另一种方法来做我想要的,但我很好奇为什么这种方法不起作用.我在perl 5.8.8和perl 5.10.0上进行了测试.
解决方法
请记住,断言是零宽度,不会消耗它匹配的字符.所以锚必须进入断言,否则整个表达式不匹配.
