在 perl 中的负前瞻表达式中正确使用插入符号

Question

我正在尝试匹配任何不完全由大写或小写字母组成的单词，并且我编写了以下正则表达式：

if ($line =~ /(?!^[A-Z][A-Z]+(\s*)$)(?!^[a-z][a-z]+(\s*)$)/) {
    print $line;
}

下面的表达式应该匹配所有大写字母的单词

(?!^[A-Z][A-Z]+(\s*)$) 

这应该匹配所有小写字母的单词

(?!^[a-z][a-z]+(\s*)$)

我将两者结合起来并尝试将其与以下单词匹配：ASDSFSDF、asdfasdfasdf 和 asdasdfFFFdsfs。我注意到它匹配一切。仅当我将插入符号移到括号外时，如下所示：

^(?![A-Z][A-Z]+(\s*)$)^(?![a-z][a-z]+(\s*)$)/)

我是否看到它只加工 asdasdfFFFdsfs。有人可以向我解释为什么我需要将运算符移到负前瞻表达式之外？我是 regexp 的新手，我很困惑。

谢谢。

Answer 1

你陷入了多重否定和锚定的陷阱，而你得到的正则表达式并没有完全达到你想要的效果。假设我们只有简化的正则表达式 /(?!^[A-Z]$)/ 和字符串 "1"。

在第一个位置（1 之前），测试断言。 ^ 在这里匹配，但 [A-Z] 不匹配。因此，^[A-Z]失败。由于前瞻是负，因此整个模式成功。

现在假设我们有字符串"A"。在第一个位置，断言被测试。模式^[A-Z]$ 在这里匹配。因为它是负前瞻，所以断言失败。

然后，测试第二个位置（在A 之后）。断言已经过测试，但 ^ 在这里不匹配 - 因此否定断言使模式成功！

因此，您的正则表达式与您想要的模式不匹配。您可以通过在断言之外锚定来抑制这种行为：

/^(?![A-Z]$)/

在这种情况下。请注意，在您的情况下，最简单的解决方案是编写一个匹配您 不 想要的所有输入的正则表达式，并否定该结果：

print $line unless $line =~ /^(?:[A-Z]{2,}|[a-z]{2,})\s*$/;

（编辑：实际上 TLP 的第二个解决方案更简单，而且可能更有效）

Answer 2

只检查字符串的大小写字符怎么样？

(?=.*[A-Z])(?=.*[a-z])

如您所见，这不会匹配仅包含一种情况的字符串，因为两个前瞻必须匹配。

当然，这只是执行两个正则表达式匹配并组合结果的复杂方法：

if ($line =~ /[A-Z]/ and $line =~ /[a-z]/)

Answer 3

这将匹配整个单词的混合大小写：

^[[:alpha:]]*([[:upper:]][[:lower:]]|[[:lower:]][[:upper:]])[[:alpha:]]*$

小一点：

^[A-Za-z]*([A-Z][a-z]|[a-z][A-Z])[A-Za-z]*$