如何批量替换文件header

蓝色未央

遇上点麻烦的文本处理问题，想请教一下各位大神：
1.txt：（高两部分为header,长得不一样，但是都是以">"开头的，header为一行，下面的每个为一行）
>m161112_061847_42213_c101125762550000001823268105221784_s1_p0/64139/30_1259_CCS strand=+;fiveseen=1;polyAseen=1;threeseen=1;fiveend=30;polyAend=1259;threeend=1290;primer=1;chimera=0
ATCTAATATTGGTTGGATATTTTCCAGAGATAGTTTAATAATTGGATCAAAAATTGGAGAAGGCGCCTTT
GGTATTGTGTACTCAGCTTTGGTCAAATCTTTCTCCGAAAATTCAGCTAGTGTAGAAGTAGCAATTAAAA
CTTTACACACGTCATTTGGAGATCAAGACGTCATAAACCTAATTCAGGAA
>m161112_061847_42213_c101125762550000001823268105221784_s1_p0/76726/1088_68_CCS strand=-;fiveseen=1;polyAseen=1;threeseen=1;fiveend=31;polyAend=1051;threeend=1090;primer=1;chimera=0
AGAAGGAATGGAATATTTGTCATCACGAAAGATAATTCACAGAGATTTGGCAGCGAGAAATGTATTAGTT
GATCAATATGTAGAAATGAAAATAGCAGATTTCGGTCTAACAAGAATTGTTGAAAATTATTATCGTAAAA
CTACTGACGGACGTCTGCCTATTAAATGGATGGCTCCTGAATGCCTACT
···

header大概有超过80,000个

现在因为软件需要，想要把表头做成这种格式：
>dj_1
>dj_2
···
>dj_3

也就是说1.txt成这样：
>dj_1
ATCTAATATTGGTTGGATATTTTCCAGAGATAGTTTAATAATTGGATCAAAAATTGGAGAAGGCGCCTTT
GGTATTGTGTACTCAGCTTTGGTCAAATCTTTCTCCGAAAATTCAGCTAGTGTAGAAGTAGCAATTAAAA
CTTTACACACGTCATTTGGAGATCAAGACGTCATAAACCTAATTCAGGAA
>dj_2
AGAAGGAATGGAATATTTGTCATCACGAAAGATAATTCACAGAGATTTGGCAGCGAGAAATGTATTAGTT
GATCAATATGTAGAAATGAAAATAGCAGATTTCGGTCTAACAAGAATTGTTGAAAATTATTATCGTAAAA
CTACTGACGGACGTCTGCCTATTAAATGGATGGCTCCTGAATGCCTACT

期待大神相助

moperyblue

1. awk '/^>/{print ">dj_"++i;next}1' 1.txt

复制代码

?

蓝色未央

回复 2# moperyblue

哇塞，可以哎，谢谢大神多次的帮助，写了打赏，我看看怎么使

蓝色未央

回复 2# moperyblue

知识就是金钱，再次O(∩_∩)O谢谢您一直的帮助

sunzhiguolu

1. perl -ple "s/\A>.*/q(dj_).++$n/es" f

复制代码

sunzhiguolu

1. perl -nle "print />/?q(dj_).++$n:$_" f

复制代码

蓝色未央

回复 6# sunzhiguolu

O(∩_∩)O谢谢