perl分组捕获
发布时间:2020-12-15 21:01:09 所属栏目:大数据 来源:网络整理
导读:问题如下 : http://zhidao.baidu.com/question/501928970.html?push=keyword ? 解决如下: #! /usr/bin/perl -wuse strict;my $string = "abc r=3 def r=3 test r=3 over";print $string,"n";$string =~ s/(?=def r=)d/5/; #?= 匹配exp后面的位置print $s
问题如下 : http://zhidao.baidu.com/question/501928970.html?push=keyword ? 解决如下: #! /usr/bin/perl -w use strict; my $string = "abc r=3 def r=3 test r=3 over"; print $string,"n"; $string =~ s/(?<=def r=)d/5/; #?<= 匹配exp后面的位置 print $string,"n"; $string = "abc r=3 def r=3 test r=3 over"; #?= 匹配exp前面的位置 $string =~ s/d(?= def)/5/; print $string,"n"; $string = "abc r=3 def r=3 test r=3 over"; #?! 匹配后面跟的不是exp的位置 $string =~ s/d(?! def)/5/; print $string,"n"; $string = "abc r=3 def r=3 test r=3 over"; #?<! 匹配前面不是exp的位置 $string =~ s/d(?<! def)/5/; print $string,"n"; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |