正则表达式 – 在一行上最多只能替换N个匹配项

在Perl中,如何编写一个正则表达式,每个字符串最多只能替换N个匹配项？

即,我正在寻找s / aa / bb /之间的中间地带;和s / aa / bb / g;我想允许多次替换,但最多只能N次.

我可以想到三种可靠的方法.第一种是在第N次与自身匹配后替换所有内容.

my $max = 5;
$s =~ s/(aa)/ $max-- > 0 ? 'bb' : $1 /eg;

如果有超过N个匹配,则效率不高.为此,我们需要将循环移出正则表达式引擎.接下来的两种方法是这样做的方法.

my $max = 5;
my $out = '';
$out .= $1 . 'bb' while $max-- && $in =~ /\G(.*?)aa/gcs;
$out .= $1 if $in =~ /\G(.*)/gcs;

而这一次,就地：

my $max = 5;
my $replace = 'bb';
while ($max-- && $s =~ s/\G.*?\Kaa/$replace/s) {
   pos($s) = $-[0] + length($replace);
}

你可能想做类似的事情

my $max = 5;
$s =~ s/aa/bb/ for 1..$max;

但是对于其他模式和/或替换表达式,该方法将失败.

my $max = 5;
$s =~ s/aa/ba/ for 1..$max;  # XXX Turns 'aaaaaaaa'
                             #     into 'bbbbbaaa'
                             #     instead of 'babababa'

当然,每次从字符串的开头开始都可能很昂贵.