被 Perl 前瞻和后瞻弄糊涂了

Question

我对 Perl 前瞻 (?=regex) 和后瞻 (?<=regex) 感到困惑，需要一些帮助来理解它。

前瞻是指look to the right of (?=regex)

lookbehind 的意思是look to the left of (?<=regex)

我还注意到lookbehind (?

例如，给出以下代码行，我想匹配数字，但前提是它不在注释行中。所以它应该匹配2，而不是1

 #Comment 1
 my $number = 2

我试过了

/(?<!^#)\d/ 
match a number if the line does not start with #

那没有用，是因为它不是一个固定宽度的lookbehind正则表达式吗？

谢谢

Answer 1

正确、前瞻和后向搜索从它们在正则表达式中的位置开始搜索。因此，您的示例 /(?<!^#)\d/ 将匹配任何数字，只要它不是 立即 在字符串开头的 # 之后。

例如：

my $string = "123 #456 #789"
while ($string =~ /(?<!#)(\d+)/g) {
     print $1;
}

上面将打印1235689。只有 4 和 7 会被跳过，因为它们前面紧跟着 #

更新

谈谈你的具体正则表达式：

use strict;
use warnings;

my $string = "#123 #456 #789";
while ($string =~ /(?<!^#)(\d+)/g) {
     print $1;
}

上面将打印23456789，因为只有数字1前面有一个#，它位于字符串的开头。