perl one-liner增加一个值

Question

我想增加文件中引号中的每个数字，每行一个：

perl -pe 's/\"(\d+)\"/ 1 + $1 /ge' file

这会删除引号 - 无法弄清楚如何将引号添加回输出。

Answer 1

perl -pe 's/\"(\d+)\"/ q{"} . (1 + $1) . q{"} /ge'

Answer 2

您可以使用外观断言 - http://perldoc.perl.org/perlre.html#Extended-Patterns。

所以正则表达式变成：s/(?<=")(\d+)(?=")/ $1 + 1 /ge

Answer 3

许多解决方案：

perl -lpe 's/"(\d+)"/$1+1/e;s/(.*)/"$1"/'

Answer 4

高尔夫赢家是：

perl -pe's/"(\d+)"/"@{[1+$1]}"/g'

Answer 5

perl -pe 's/(\d)/{"\"".(1+$1)."\""}/ge' file

说明：e修饰符告诉perl评估替换值（用大括号括起来）。 1+$1返回递增的数字。