零填充整数与 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

Answer 2

my $string = '3-7+9-15';
$string =~  s/\b(\d)\b/0$1/g;
say $string;

输出：

03-07+09-15