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.(?<=exp):这个零宽断言用来断言自身出现的位置之前能够匹配到表达式exp
4.(?<!exp):这个零宽断言用来断言自身出现的位置之前不能够匹配到表达式exp

三、程序
1.找出不包含"abc"的字符串
第一步:^(.)+$(字符串构成)
第二步:^((?!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/

  • 1
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值