Perl正则如何匹配数字N及后续N个字符？

原代码无法生效的核心原因：Perl正则的量词（如{n}）在编译阶段就需要确定具体数值，而反向引用\1是在匹配阶段才捕获到的内容，所以{\1}会被解析为匹配字面量的{、1、}字符，而非动态量词。你的字符串中不存在这样的组合，因此替换完全不生效。

可行解决方案 #

方案1：使用e修饰符配合代码块替换 #

通过e修饰符让替换部分执行Perl代码，动态计算并删除目标内容：

$myString = "1abc3cdf\n";
$myString =~ s/(\d+)/do {
    my $num = $1;
    # 定位数字起始位置，删除数字本身+后续num个字符
    substr($myString, pos($myString) - length($num), length($num) + $num) = '';
    ''; # 返回空字符串完成替换
}/eg;

print $myString; # 输出 bc

方案2：手动控制匹配位置 #

通过pos()函数跟踪匹配位置，循环处理所有数字：

$myString = "1abc3cdf\n";
while ($myString =~ /(\d+)/g) {
    my $num = $1;
    my $start_pos = pos($myString) - length($num);
    # 删除数字及后续对应长度的字符
    substr($myString, $start_pos, length($num) + $num) = '';
    # 调整匹配位置，避免跳过后续内容
    pos($myString) = $start_pos;
}

print $myString; # 输出 bc

注：之前尝试的s///ge未生效，大概率是因为没有正确处理匹配位置和内容删除逻辑，仅依赖反向引用无法实现动态量词的需求。

内容的提问来源于stack exchange，提问作者DaGaMs