RegEx - 查找不包含模式的所有内容

Question

我得到了这个正则表达式代码：

((\w)(\w)\3\2)

它匹配所有包含诸如 anna、otto、xyyx 之类的东西...

但我想匹配不包含这种模式的所有内容。 我该怎么做？

Answer 1

此问题已在此 SO post 上提出。你应该试试这个：

^((?!(\w)(\w)\3\2).)*$

Answer 2

最初我认为这种方法可以满足您的要求。但是由于下面@WiktorStribiżew 提出的原因，它不起作用。特别是 AAAB 和 ABBC 等测试字符串应该与以下字符串匹配，但 不

^((\w)(\w)(?!\3)(?!\2))

我的第二个想法是使用

^((\w)(\w)(?!\3\2))

这似乎确实有效。

新的测试程序。这会生成从 AAAA 到 ZZZZ 的所有可能字符串。然后使用非正则表达式检查来测试每个字符串是否应该匹配。最后，检查每个字符串是否符合正向

$findrepeats, ^((\w)(\w)(\3)(\2)) 匹配 abba

和负面的

$repeatnomatch ^((\w)(\w)(?!\3)(?!\2)) 匹配 ab[not b][not a]

use strict;
use warnings;

my @fourchar=('AAAA'..'ZZZZ'); 

my @norepeats=();

my @hasrepeats=();

for my $pattern ('AAAA' .. 'ZZZZ') {
  if (checkstring($pattern)) {
    push @hasrepeats, $pattern;
    } else {
    push @norepeats, $pattern;
    }
}

print scalar @hasrepeats, " strings with repeated abba\n";
print scalar @norepeats, " strings with ab[not b][not a]\n";



my $findsrepeats=qr/^((\w)(\w)(\3)(\2))/;
my $repeatnomatch=qr/^((\w)(\w)(?!\3\2))/;

for my $example (@hasrepeats) {
  die $example if (not($example=~$findsrepeats));
  die $example if ($example=~$repeatnomatch);
}

for my $example (@norepeats) {
  die $example if (not($example=~$repeatnomatch));
  die $example if ($example=~$findsrepeats);
}

print "pass\n";

sub checkstring {
  my $s=shift;
  my @element=split(//,$s);
  return ($element[0] eq $element[3]  && 
          $element[1] eq $element[2]);
}

运行上面的 perl 程序应该会产生这个输出

$ perl nr3.pl 
676 strings with repeated abba
456300 strings with ab[not b][not a]
pass