Perl正则问题：如何用单正则将捕获组替换为其长度以生成指定输出

嘿，这个需求用Perl的正则替换轻松就能实现！核心就是利用Perl允许在替换表达式里嵌入代码逻辑的特性，直接计算捕获内容的长度来生成替换文本。

先上完整的可运行代码示例：

my $input_str = 'foo9528__5734__776bar';
$input_str =~ s/(\d+)/_${\length($1)}_/g;
print $input_str; # 输出：foo_4__4__3_bar

咱们拆解一下这个正则替换的关键点：

• (\d+)：这是捕获组，用来匹配并捕获连续的数字串（也就是你要替换的9528、5734、776这类内容）
• 替换部分的_${\length($1)}_：这里的${\...}是Perl的语法糖，能把括号里表达式的计算结果直接插入到替换字符串中。length($1)就是计算捕获组$1里内容的长度，前后加上下划线，刚好得到你要的_4_、_3_格式
• /g修饰符：全局替换标记，确保字符串里所有符合条件的数字串都会被处理，不会只替换第一个

如果你觉得写捕获组有点麻烦，还可以用Perl内置的${^MATCH}变量来简化，它会自动保存当前正则匹配到的全部内容，代码可以改成这样：

$input_str =~ s/\d+/_${\length(${^MATCH})}_/g;

效果和之前完全一样，只是少写了个捕获组，看起来更清爽。

需要注意的是，这种内嵌表达式的语法在Perl 5.10及以上版本都支持，现在大部分环境都是符合要求的~

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