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

一、几个问题

1.找出不包含"abc"的字符串

测试用例1==>abc(不符合)

测试用例2==>xabc(不符合)

测试用例3==>abcy(不符合)

测试用例4==>xabcy(不符合)

测试用例5==>xxxxxabcy(不符合)

测试用例6==>xxxabcydabc(不符合)

测试用例7==>abcy(不符合)

测试用例8==>xyz(符合)

2.截出指定位置(第2列)字符串，该字符串不包含"abc"

测试用例1==>111abc222(不符合)

测试用例2==>111xabc222(不符合)

测试用例3==>111abcy222(不符合)

测试用例4==>111xabcy222(不符合)

测试用例5==>111xyz222(符合)

二、零宽断言

上述问题都可以采用零宽断言来解决，先了解零宽断言：

1.(?=exp)：这个零宽断言用来断言自身出现的位置之后能够匹配到表达式exp，考虑下面这一个正则表达式q(?=u)，这个正则表达式表示匹配后面的字符是u的q

2.(?!exp)：这个零宽断言用来断言自身出现的位置之后不能够匹配到表达式exp，看下面这一个正则表达式q(?!u)，这个正则表达式表示匹配后面的字符不是u的q

3.(?字符串

第一步:^(.)+$(字符串构成)

第二步:^((?!abc).)+$(每个字符前的光标位置往后字符串都不能是abc)usestrict;my@lines=('abc','xabc','abcy','xabcy','xxxxxabcy','xxxabcydabc','abcy','xyz');my$pattern='^((?!abc).)+$';foreachmy$line(@lines){if($line=~/$pattern/){print"$line:matched,$1\n";}else{print"$line:mismatched\n";}}结果:abc:mismatched

xabc:mismatched

abcy:mismatched

xabcy:mismatched

xxxxxabcy:mismatched

xxxabcydabc:mismatched

abcy:mismatched

xyz:matched,z2.截出指定位置(第2列)字符串，该字符串不包含"abc"

第一步:\S+\s+((\S)+)\s+\S+(先提出第二列)

第二步:\S+\s+(((?!abc)\S)+)\s+\S+(第二列的每个字符前的光标位置往后字符串都不能是abc)my@lines=('111abc222','111xabc222','111abcy222','111xabcy222','111xyz222');my$pattern='^\S+\s+(((?!abc)\S)+)\s+\S+$';foreachmy$line(@lines){if($line=~/$pattern/){print"$line:matched,$1,$2,$3\n";}else{print"$line:mismatched\n";}}D:\temp\perl>perltest.pl

abc:mismatched

xabc:mismatched

abcy:mismatched

xabcy:mismatched

xxxxxabcy:mismatched

xxxabcydabc:mismatched

abcy:mismatched

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