重新编号：同一列中连续相同i的ID编号一致

小小脑

如A文件：有三列：
ID strat End
Chr1 29 50
Chr1  80 100
Chr1 120 150
Chr2 37 50
Chr2 70 90
Chr1 200 300
Chr1 400 500
Chr3 488 900
Chr2 69 80
Chr3 900 1200
Chr3 2000 4000
Chr2 200 400

B文件，如下：
ID strat End
Chr1_1 29 50
Chr1_1  80 100
Chr1_1 120 150
Chr2_1 37 50
Chr2_1 70 90
Chr1_2 200 300
Chr1_2 400 500
Chr3_1 488 900
Chr2_2 69 80
Chr3_2 900 1200
Chr3_2 2000 4000
Chr2_3 200 400



问题：如何通过A文件得到B文件？

baby_神

1. awk 'NR==1{print;next}{$1==b?(c[$1]=c[$1]!=1?c[$1]:1):c[$1]++;b=$1;$1=$1"_"c[$1]}1' a.txt

复制代码

baby_神

1. <span style="background-color: rgb(255, 255, 255);">perl -ape '$.>1&&s#$F[0]#$s eq[        DISCUZ_CODE_1        ]amp;?[        DISCUZ_CODE_1        ]amp;."_$h{[        DISCUZ_CODE_1        ]amp;}":[        DISCUZ_CODE_1        ]amp;."_".++$h{[        DISCUZ_CODE_1        ]amp;}#e;$s=[        DISCUZ_CODE_1        ]amp;' a.txt</span>

复制代码

为毛乱码

baby_神

1. awk 'NR==1{print;next} a[$1]+1!=NR {b[$1]++} {a[$1]=NR;$1=$1"_"b[$1]}1' a.txt

复制代码

legs

perl -pe'$.>1&&s#\S+\K#$s eq$`?"_$h{$`}":"_".++$h{$`}#e;$s=$`'

klainogn

1. awk 'NR==1{print;next}last!=$1{a[$1]++;last=$1}{$1=$1"_"a[$1]}1' f1

复制代码