regex - Perl 中的否定后向断言

Question

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

这是我的尝试。我正在尝试匹配之前没有的所有行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

您需要的是负前瞻。所以，直接从寺院传来答案：

#!/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