为什么这个正面的后置断言在锚定到字符串的开头时不起作用？

Question

当它固定在字符串的前面时,为什么这个后置断言不起作用？运行以下代码,您将看到第一个测试通过,但第二个测试仅通过^锚点变化,但失败了.

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, '/0/456/hello', 'anchored');   # fails

移入^后面的断言对我来说不是一个选项(这是一个非常简化的例子),但确实解决了这个问题.我找到了另一种方法来做我想要的,但我很好奇为什么这种方法不起作用.我在perl 5.8.8和perl 5.10.0上进行了测试.

Answer 1

请记住,断言是零宽度,不会消耗它匹配的字符.所以锚必须进入断言,否则整个表达式不匹配.

Answer 2

(?<=/)\d+(?=/hello)在你的字符串匹配,456因为它是两个lookarounds将适用的字符串的唯一部分.当您锚定表达式时,它不再能够匹配任何内容.外观是零宽度,因此您的第二个模式显示"匹配从字符串开头开始的一个或多个数字,前面的字符是斜线",这显然是不可能的.