正则表达式 – 在一行上最多只能替换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'

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