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，考虑下面这一个正则表达式q(?=u)，这个正则表达式表示匹配后面的字符是u的q
　　2.(?!exp)：这个零宽断言用来断言自身出现的位置之后不能够匹配到表达式exp，看下面这一个正则表达式q(?!u)，这个正则表达式表示匹配后面的字符不是u的q
　　3.(?字符串
　　第一步:^(.)+$(字符串构成)
　　第二步:^((?!abc).)+$(每个字符前的光标位置往后字符串都不能是abc) use strict; my @lines = ('abc','xabc','abcy','xabcy','xxxx xabcy','xxx abcy dabc','abcy','xyz'); my $pattern = '^((?!abc).)+$'; foreach my $line (@lines) { if ($line =~ /$pattern/) { print "$line:matched,$1\n"; } else { print "$line:mismatched\n"; } } 结果: 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'); my $pattern = '^\S+\s+(((?!abc)\S)+)\s+\S+$'; foreach my $line (@lines) { if ($line =~ /$pattern/) { print "$line:matched,$1,$2,$3\n"; } else { print "$line:mismatched\n"; } } 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/