regex - 零填充整数与 perl 正则表达式替换

Question

我想用正则表达式替换一个零填充整数。例如，我有以下字符串:

my $string = '3-7+9-15';

并想要输出:

03-07+09-15

我知道我可以使用 sprintf，但我必须首先检索每个整数做 sprintf 然后将整数重新连接成一个字符串:(

我想通过正则表达式替换一次性完成。是否可以 ？

Answer 1

我会选择使用 sprintf结合正则表达式替换

use strict;
use warnings 'all';
use feature 'say';

my $s = '3-7+9-15';
$s =~  s{(\d+)}{ sprintf '%02d', $1 }ge;
say $s;

输出

03-07+09-15