linux - 如何搜索特定前缀并为其每个数字添加新字符？

Question

<分区>

Answer 1

作品:

perl -pe's{S(\d+):(\S+)}{my$n=$1;"S$n:".$2=~s/\d+/$&c$n/gr=~s/,/;/gr}ge' test.txt

这里涉及三个正则表达式搜索替换:

• 外层 s{...}{...}ge 每 Sn:somethingnotspace 改变一次
• 第一个内部 (s/\d+/$&c$n/gr) 将 c$n 添加到每个整数。 $& 是匹配项，$n 是从外部搜索替换中的 $1 中获取的。
• 第二个内部 (s/,/;/gr) 将所有逗号更改为分号。

/e 正则表达式修饰符(或这里的 }ge)有一个代码块而不是用于替换的字符串。执行该代码并使用它的最后一条语句作为替换。

/r 修饰符(如此处的/gr)返回正则表达式替换的字符串(不更改变量，但这在这里并不重要)而不是返回它所做的更改数(默认值)。

三个/g 修饰符搜索替换每个匹配项，而不仅仅是第一个。

需要 Perl 版本 5.14 或更高版本才能使 /r 修饰符起作用(运行 perl -v 来检查版本)