我想在字符串中进行多次替换,但仅当在开始正则表达式和结束正则表达式之间时。例如:
$start = qr/a.*?b/;
$end = qr/c.*?d/;
$string = 'a1b x c2d x a345b qqxxxc678d xx abxcd';
perl代码将执行受限的s/x/y/g
。它会将a.*?b
和c.*?d
之间出现的所有x
都更改为y
,这样之后:
$string = 'a1b y c2d x a345b qqyyyc678d xx abycd'
发布于 2019-03-01 07:06:34
您可以使用修改后的/e
执行代码(针对每个匹配项单独执行)来生成替换字符串:
use strict;
use warnings;
my $start_regex = qr/a.*?b/;
my $end_regex = qr/c.*?d/;
my $string = 'a1b x c2d x a345b qqxxxc678d xx abxcd';
$string =~ s/($start_regex)(.*?)($end_regex)/ my ($start_match, $middle_match, $end_match) = ($1, $2, $3); $middle_match =~ s!x!y!g; $start_match . $middle_match . $end_match /eg;
print $string, "\n";
将打印输出
a1b y c2d x a345b qqyyyc678d xx abycd
注意内部正则表达式中的替代正则表达式分隔符s!!!
。
将外部正则表达式匹配的$1
、$2
和$3
存储在临时变量中很重要,因为当您在替换代码中执行另一个正则表达式时,它们将丢失。
https://stackoverflow.com/questions/54935455
复制相似问题