perl - 使用 REGEX 匹配一个字符串，而该字符串中没有重复的第一个标记。 (第2部分)

Question

感谢@cool_me5000 帮助我解决了这个问题的过度简化版本:PERL: Using REGEX to match a string without the first token repeated in the string. (ABC, not AAA ABC)

这是调整后的问题:

我正在尝试使用正则表达式来匹配第一个实例，其中 ATE 后跟 CAT，而在 ATE 和 CAT 之间没有另一个 ATE。我想匹配“ATE BAT CAT”。请注意，在此文本字符串中，在第一个 ATE/CAT 组合之后还有其他实例，它们也可以适合 ATE/CAT，(特别注意字符串末尾附近的“ATE DOG CAT)”这是文本:

$TEXT = "ATE ATE ATE ATE BAT CAT ATE DOG EGG ATE FOR GIN ATE DOG CAT ATE";

我第一次尝试:

@finds1=$TEXT=~m/((ATE).*?(CAT))/;
$result = $finds1[0];
print "result = $result\n";

这将打印以下内容:

result = ATE ATE ATE ATE BAT CAT

当我想要的只是:

result = ATE BAT CAT

请注意，我正在尝试创建一个可以在 B 可以是任何字符串的情况下使用的正则表达式。例如ATE DOG CAT、ATE FAT GET HAT JOT KIN CAT、ATE YAK ULE INN OLD KOC JOG HUG GOT TAL CAT。

我接下来尝试将前瞻与 if then else 语句结合使用。这是代码:

@finds1=$TEXT=~m/(ATE(?(?!.*?ATE.*?CAT).*?CAT|Z{100}))/;
$result = $finds1[0];
print "result = $result\n";

REGEX 的第一部分 (ATE, 告诉 perl 查找 ATE 的出现。一旦找到，perl 然后处理 if then else 语句，其中条件语句是 ATE 之后没有 .?ATE.?CAT 的实例, 如果没有找到，则 perl 查找 .*?CAT，如果至少找到一个，则它搜索 Z 的 100 个实例。我试图解析有 100 个 Z。)

这将返回:

result = ATE DOG CAT    

在第一次识别 CAT 后，我曾考虑使用正向后视。但是，就像我上面提到的，第一个 ATE.CAT 组合之间没有 A 的字符数是可变的。据我所知，PERL 不能做可变长度的后视。

您可以提供的任何帮助或指导将不胜感激!

提前致谢!

Answer 1

对于前面的问题，解决方案是:

my ($first) = $text =~ /(A[^AC]*C)/;

我们使用了 A|C 的否定那么，这意味着我们需要使用 ATE|CAT 的否定这里。

每个人都应该知道的是 (?:(?!STRING).)是到 (?:STRING)如 [^CHAR]是到 CHAR . (?:(?!PAT).)也适用于一些更复杂的模式，包括上面的模式。

所以我们得到:

my ($first) = $text =~ /(ATE (?:(?!ATE|CAT).)* CAT)/sx;

说明:

你不想在“ATE”和“CAT”之间出现“CAT”或“ATE”，所以

   +---------------- You don't want CAT or ATE starting here.
   |+--------------- You don't want CAT or ATE starting here.
   ||--+------------ You don't want CAT or ATE starting here.
   ||   +----------- You don't want CAT or ATE starting here.
   ||   |+---------- You don't want CAT or ATE starting here.
   ||   ||
   vv   vv
ATE??...??CAT

所以那将是

/
   ATE
   (?! CAT|ATE ) .
   (?! CAT|ATE ) .
   ...
   (?! CAT|ATE ) .
   (?! CAT|ATE ) .
   CAT
/x

重复使用 * 处理.