☰

如何跳过替换每行中第一次出现的字符？

tag-icon • tag-icon text-processing sed
如何跳过替换每行中第一次出现的字符？

我有一些格式的文件

Y15-SUB-B04-P17-BK_M02734_4_000000000-ANNUF_1_1111_24724_4878;size=1;
Y15-SUB-B05-P22-LM_M02734_4_000000000-ANNUF_1_1111_20624_14973;size=1;
Y15-SUB-B05-P22-LM_M02734_4_000000000-ANNUF_1_1103_11326_10379;size=1;

我希望将每次出现的下划线 (_) 替换为冒号 (:)，除了第一个。我想要这样的输出：

Y15-SUB-B04-P17-BK_M02734:4:000000000-ANNUF:1:1111:24724:4878;size=1;
Y15-SUB-B05-P22-LM_M02734:4:000000000-ANNUF:1:1111:20624:14973;size=1;
Y15-SUB-B05-P22-LM_M02734:4:000000000-ANNUF:1:1103:11326:10379;size=1;

我知道我可以用它sed -i '' 's/_/:/g' old_file来替换 ALL （或sed 's/_/:/g' old_file > new_file），并且我可以添加数字来仅替换第二次、第四次左右的出现：

sed 's/_/:/2' old_file > new_file

但是如何替换每一行中除第一行之外的所有出现的情况呢？

答案1

使用 GNU sed（其他版本可能表现不同，谢谢格伦·杰克曼）：

 sed -i'' 's/_/:/2g' file

这会将所有内容更改_为:跳过每行的第一次出现。

答案2

仅使用Posix-sed我们喜欢的结构：

$ sed -e '
     y/_/\n/
     s/\n/_/
     y/\n/:/
' inp.file

根据 Stephane 的建议，还有一些方法如下：

$ perl -pe 's/(^\G.*?_)?.*?\K_/:/g' inp.file 

$ perl -pe 'my $n; s/_/$n++?":":$&/ge' inp.file 

$ perl -pe 's/_\K(.*)/$1 =~ y|_|:|r/e' inp.file

答案3

awk还好吗？您可以用作_字段分隔符，并打印出来：

<field 1>_<field 2>:<field n>:<field n+1>:...

像这样：

awk -F_ '{ printf("%s_%s", $1, $2); for (x = 3; x <=NF; x++) { printf(":%s", $x); }; printf("\n"); }'

如果每行的结构相同，您可以对字段数量进行硬编码以避免循环（根据非常粗略的初步试验，运行时间约为 2/3）：

awk -F_ '{printf("%s_%s:%s:%s:%s:%s:%s:%s\n", $1, $2, $3, $4, $5, $6, $7, $8);}'

答案4

这是另一个简单的awk脚本（标准 Linux gawk），没有循环：

cat script.awk
match($0,/^[^_]*_/,a){ # match current line to first _ (including) into a[0] variable
   sub(a[0],"");       # remove a[0] from current line
   gsub("_",":");      # replace all _ to : in current line
   print a[0]""$0;     # output a[0] and current line
}

跑步：

awk -f script.awk input.txt

或者：

awk 'match($0,/^[^_]*_/,a){sub(a[0],"");gsub("_",":");print a[0]""$0;}' input.txt

相关内容