代码之家 › 专栏 › 技术社区 › vervenumen

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

increment perl regex

vervenumen · 技术社区 · 9 年前

我有一个这样的字符串:

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

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

1 回复 | 直到 9 年前

mpapec 9 年前

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

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

推荐文章

Irtiaz Kabir · 当对一个对象进行多次操作时,如何禁止增量运算符?

2 年前

redemerald26 · 如何让Javascript跟踪我的分数增量?

2 年前

horribly_n00bie · Java:如何找到最高的文件号并增加它?[重复]

2 年前

00Saad · 为什么我的分数变量没有显示正确的值?

6 年前

runningguy · MongoDB-增量嵌套文档数组,其中不为Null[重复]

6 年前

1MinLeft · 为什么像+++(+*++b))这样的东西是非法的?[副本]

6 年前

Christopher Littlewood · 如何在PHP for循环中增加1和2

6 年前

Murphy1976 · 动态变量增量

6 年前

Eric Hepperle - CodeSlayer2010 · 使用ES6在没有贴图的情况下增加对象属性

6 年前

Stefan · 简单的JS/jQuery多个递增和递减按钮

6 年前