Perl不包含某個字串的正則匹配

一、幾個問題
1.找出不包含"abc"的字串
  測試案例1==>abc(不符合)
  測試案例2==>xabc(不符合)
  測試案例3==>abcy(不符合)
  測試案例4==>xabcy(不符合)
  測試案例5==>xxxx xabcy(不符合)
  測試案例6==>xxx abcy dabc(不符合)
  測試案例7==>abcy(不符合)
  測試案例8==>xyz(符合)
 

2.截出指定位置(第2列)字串，該字串不包含"abc"
  測試案例1==>111 abc 222(不符合)
  測試案例2==>111 xabc 222(不符合)
  測試案例3==>111 abcy 222(不符合)
  測試案例4==>111 xabcy 222(不符合)
  測試案例5==>111 xyz 222(符合)

 
 
二、零寬斷言
上述問題都可以採用零寬斷言來解決，先瞭解零寬斷言：
1.(?=exp)：這個零寬斷言用來斷言自身出現的位置之後能夠匹配到運算式exp，考慮下面這一個Regexq(?=u)，這個Regex表示匹配後面的字元是u的q
2.(?!exp)：這個零寬斷言用來斷言自身出現的位置之後不能夠匹配到運算式exp，看下面這一個Regexq(?!u)，這個Regex表示匹配後面的字元不是u的q
3.(?<=exp)：這個零寬斷言用來斷言自身出現的位置之前能夠匹配到運算式exp
4.(?<!exp)：這個零寬斷言用來斷言自身出現的位置之前不能夠匹配到運算式exp

 

三、程式
1.找出不包含"abc"的字串
  第一步:^(.)+$(字串構成)
  第二步:^((?!abc).)+$(每個字元前的游標位置往後字串都不能是abc)

use strict;</p><p>my @lines = ('abc','xabc','abcy','xabcy','xxxx xabcy','xxx abcy dabc','abcy','xyz');<br />my $pattern = '^((?!abc).)+$';</p><p>foreach my $line (@lines) {<br /> if ($line =~ /$pattern/) {<br /> print "$line:matched,$1/n";<br /> } else {<br /> print "$line:mismatched/n";<br /> }<br />}</p><p>

 

結果:

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

2.截出指定位置(第2列)字串，該字串不包含"abc"
  第一步:/S+/s+((/S)+)/s+/S+(先提出第二列)
  第二步:/S+/s+(((?!abc)/S)+)/s+/S+(第二列的每個字元前的游標位置往後字串都不能是abc)

 

my @lines = ('111 abc 222','111 xabc 222','111 abcy 222','111 xabcy 222','111 xyz 222');<br />my $pattern = '^/S+/s+(((?!abc)/S)+)/s+/S+$';</p><p>foreach my $line (@lines) {<br /> if ($line =~ /$pattern/) {<br /> print "$line:matched,$1,$2,$3/n";<br /> } else {<br /> print "$line:mismatched/n";<br /> }<br />}</p><p>

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

 

參考了:使用零寬斷言來匹配不包含連續字串的行http://www.khotyn.com/category/programming/page/2/