如何在正则表达式中组合正负条件？

Question

我对正则表达式相当陌生，需要一些帮助。我需要在 Perl 中使用正则表达式过滤一些行。我将把正则表达式传递给另一个函数，因此它需要在一行中完成。

我只想选择包含 "too long" 且不以 "SKIPPING" 开头的行，

这是我的测试字符串：

由于到期时间太长而跳过该债券
TKIPPING 该债券到期时间过长
由于到期时间过长而对该债券进行拍打
你好，这个成熟期太长了
这太长了
你好

表达式规则应与“太长”匹配以下内容：

由于到期时间过长而跳过该债券
由于到期时间过长而对该债券进行拍打
你好，这个成熟期太长了
这太长了

，应该跳过：

“你好”，因为它不包含“太长”
“由于到期太久而跳过此债券”，因为它包含“跳过”

Answer 1

/^(?!SKIPPING).*too long/

Answer 2

就我个人而言，我会将其作为两个单独的正则表达式来执行，只是为了使其更清晰。

while (<FILE>)
{
  next if /^SKIPPING/;
  next if !/too long/;

   ... do stuff
}

Answer 3

我怀疑你可能在一个正则表达式之后，但我更喜欢分成更具可读性的东西，如下所示：

use strict;
use warnings;

for my $line ( <DATA> ) {
    next  if $line =~ m/^SKIPPING/;
    next  if $line !~ m/too long/;

    # do something with $line
    chomp $line;
    say "Found: ", $line, ':length=', length( $line );
}

__DATA__
SKIPPING this bond since maturity too long
TKIPPING this bond since maturity too long
SLAPPING this bond since maturity too long
Hello this maturity too long
this is too long
hello there

Answer 4

使用前瞻；请参阅正则表达式环视的说明。

^(?!SKIPPING).*too long

Answer 5

/^(?<!SKIPPING).*too long$/

匹配您正在寻找的线路。末尾的美元符号导致它仅匹配以“too long”结尾的字符串。

希望这有帮助！

Answer 6

使用负向后查找：

(?<!^SKIPPING)too long$