Perl不包含某个字符串的正则匹配

一、几个问题
1.找出不包含"abc"的字符串
  测试用例1==>abc(不符合)
  测试用例2==>xabc(不符合)
  测试用例3==>abcy(不符合)
  测试用例4==>xabcy(不符合)
  测试用例5==>xxxx xabcy(不符合)
  测试用例6==>xxx abcy dabc(不符合)
  测试用例7==>abcy(不符合)
  测试用例8==>xyz(符合)
  @H_404_23@

2.截出指定位置(第2列)字符串，该字符串不包含"abc"
  测试用例1==>111 abc 222(不符合)
  测试用例2==>111 xabc 222(不符合)
  测试用例3==>111 abcy 222(不符合)
  测试用例4==>111 xabcy 222(不符合)
  测试用例5==>111 xyz 222(符合)@H_404_23@

 
 
二、零宽断言
上述问题都可以采用零宽断言来解决，先了解零宽断言：
1.(?=exp)：这个零宽断言用来断言自身出现的位置之后能够匹配到表达式exp，考虑下面这一个正则表达式q(?=u)，这个正则表达式表示匹配后面的字符是u的q
2.(?!exp)：这个零宽断言用来断言自身出现的位置之后不能够匹配到表达式exp，看下面这一个正则表达式q(?!u)，这个正则表达式表示匹配后面的字符不是u的q
3.(?<=exp)：这个零宽断言用来断言自身出现的位置之前能够匹配到表达式exp
4.(?<!exp)：这个零宽断言用来断言自身出现的位置之前不能够匹配到表达式exp@H_404_23@

 @H_404_23@

三、程序
1.找出不包含"abc"的字符串
  第一步:^(.)+$(字符串构成)
  第二步:^((?!abc).)+$(每个字符前的光标位置往后字符串都不能是abc)@H_404_23@

use strict; my @li<a href="/tag/nes/" target="_blank" class="keywords">nes</a> = ('abc','xabc','abcy','xabcy','xxxx xabcy','xxx abcy dabc','xyz'); my $pattern = '^((?!abc).)+$'; foreach my $line (@li<a href="/tag/nes/" target="_blank" class="keywords">nes</a>) { if ($line =~ /$pattern/) { print "$line:matched,$1/n"; } else { print "$line:mismatched/n"; } } @H_404_23@

 @H_404_23@

结果:@H_404_23@

abc:mismatched
xabc:mismatched
abcy:mismatched
xabcy:mismatched
xxxx xabcy:mismatched
xxx abcy dabc:mismatched
abcy:mismatched
xyz:matched,z@H_404_23@

2.截出指定位置(第2列)字符串，该字符串不包含"abc"
  第一步:/S+/s+((/S)+)/s+/S+(先提出第二列)
  第二步:/S+/s+(((?!abc)/S)+)/s+/S+(第二列的每个字符前的光标位置往后字符串都不能是abc)@H_404_23@

 @H_404_23@

my @li<a href="/tag/nes/" target="_blank" class="keywords">nes</a> = ('111 abc 222','111 xabc 222','111 abcy 222','111 xabcy 222','111 xyz 222'); my $pattern = '^/S+/s+(((?!abc)/S)+)/s+/S+$'; foreach my $line (@li<a href="/tag/nes/" target="_blank" class="keywords">nes</a>) { if ($line =~ /$pattern/) { print "$line:matched,$1,$2,$3/n"; } else { print "$line:mismatched/n"; } } @H_404_23@

D:/temp/perl>perl test.pl
abc:mismatched
xabc:mismatched
abcy:mismatched
xabcy:mismatched
xxxx xabcy:mismatched
xxx abcy dabc:mismatched
abcy:mismatched
xyz:matched,z@H_404_23@

 @H_404_23@

参考了:使用零宽断言来匹配不包含连续字符串的行http://www.khotyn.com/category/programming/page/2/@H_404_23@