拆分字符串的标题

Question

我想重新格式化下面的行.请参阅输入示例和所需输出.我一直在使用awk而没有找到正确的解决方案

输入:

>1-672762
TGAGGTAGTAGGTTGTATGGTT
>2-240457
TGAGGTAGTAGGTTGTGTGGTT
>3-130231
TAGCAGCACGTAAATATTGGCG
>4-116485
TGAGGTAGTAGGTTGTATAGTT

输出(需要以制表符分隔):

TGAGGTAGTAGGTTGTATGGTT  672762
TGAGGTAGTAGGTTGTGTGGTT  240457
TAGCAGCACGTAAATATTGGCG  130231
TGAGGTAGTAGGTTGTATAGTT  116485

Answer 1

使用perl:

$ perl -lne '/^>\d+-(\d+)/ or print "$_\t$1"' file

输出:

TGAGGTAGTAGGTTGTATGGTT    672762
TGAGGTAGTAGGTTGTGTGGTT    240457
TAGCAGCACGTAAATATTGGCG    130231
TGAGGTAGTAGGTTGTATAGTT    116485

Answer 2

perl中的另一种方法(" - "是chr(055)):

perl -wln055e's/(\S+)\s+(\S+).*/$2\t$1/s and print'

要么

perl -wlp055e'BEGIN{<>}s/(\S+)\s+(\S+).*/$2\t$1/s'