perl - 如果行包含字母 r 后跟一个数字

Question

我有一个清单：

rconr01
scordr100
dcver101
ccpcr01
yccr10
scpor01

如何-在数字后面添加破折号r？获取以下列表：

rcon-r01
scord-r100
dcve-r101
ccpc-r01
ycc-r10
scpo-r01

sed,awk或perl. 我不知道从哪里开始。

我试过^[r][09]$了，但这超出了我的想象。

score 3 · Accepted Answer

3

单程：

 sed 's/r[0-9]/-&/' file

于 2013-04-26T16:52:23.140 回答

score 3 · Accepted Answer

作为 Perl 的替代品：

s/(?=r\d)/-/

可以使用perl -pe's/(?=r\d)/-/' <file

该(?=...)组是一个前瞻，当以下字符匹配模式时它匹配，但它不推进位置。我们的模式不匹配字符，但匹配r. 然后在这个位置替换减号..

2 回答 2