Perl 中的否定后向断言

Question

我有一组文件路径，我想列出所有不包含x/y/z/ 的文件路径。另一个限制是我不能使用print if !m{x/y/z/}，因为我没有脚本的写权限。我可以向 include 提供带有正则表达式模式的脚本（作为命令行选项），即所有匹配的内容都会被打印出来。

这是我的尝试。我正在尝试匹配没有在它们之前有x/y/z/的所有行。

#!/usr/bin/perl
use warnings;
use strict;

while(<DATA>) {
   print if m{(?<!x/y/z/).*};
}

__DATA__
x/y/z/a/b/x.cc
x/y/z/a/b/x.cc
x/y/z/a/b/x.cc
x/y/a/b/m.cc
x/y/a/b/m.cc

我的期望是它只会打印底部的两个字符串，但它会打印所有内容。但是当我将模式更改为 (?<=x/y/z/).* 时，它只打印前 3 个字符串：

x/y/z/a/b/x.cc
x/y/z/a/b/x.cc
x/y/z/a/b/x.cc

为什么会这样，我应该如何修复我的正则表达式？

Answer 1

您需要的是否定的前瞻。所以，直接从the monastery 得到答案：

#!/usr/bin/perl
use warnings;
use strict;

while(<DATA>) {
   print if m{^(?!(?s:.*)x/y/z)}; 
}

__DATA__
x/y/z/a/b/x.cc
x/y/z/a/b/x.cc
x/y/z/a/b/x.cc
x/y/a/b/m.cc
x/y/a/b/m.cc