regex - 在 perl 中的特定位置递增整数

Question

我有一个这样的字符串:

1,2,4 0:5 1:10 3:14

我想转换成

1,2,4 1:5 2:10 4:14

只有“:”之前的数字必须加 1。

我试过了:

perl -w -e '$s="1,2,4 0:5 1:10 3:14"; 
$s =~ s/([0-9]*):/print(($1+1).":")/ge; 
print("$s\n");'

奇怪地返回

1:2:4:1,2,4 15 110 114

有什么简单的方法可以实现我的目标吗？

Answer 1

您已经足够接近了，但它必须至少匹配一位数字，然后是 : ，并且替换部分必须返回所需的结果，而不是打印它。

my $s = "1,2,4 0:5 1:10 3:14"; 
$s =~ s/([0-9]+) (?=:)/ $1+1 /xge; 
print $s, "\n";