perl – 字符串的分割标题

发布时间：2020-12-16 06:10:16 所属栏目：大数据来源：网络整理

导读：我想重新格式化下面的行.请参阅输入示例和所需输出.我一直在使用awk而没有找到正确的解决方案输入： 1-672762TGAGGTAGTAGGTTGTATGGTT2-240457TGAGGTAGTAGGTTGTGTGGTT3-130231TAGCAGCACGTAAATATTGGCG4-116485TGAGGTAGTAGGTTGTATAGTT 输出(需要以制表符分隔)

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

输入：

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

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

TGAGGTAGTAGGTTGTATGGTT  672762
TGAGGTAGTAGGTTGTGTGGTT  240457
TAGCAGCACGTAAATATTGGCG  130231
TGAGGTAGTAGGTTGTATAGTT  116485

解决方法

随着 perl：

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

输出：

TGAGGTAGTAGGTTGTATGGTT    672762
TGAGGTAGTAGGTTGTGTGGTT    240457
TAGCAGCACGTAAATATTGGCG    130231
TGAGGTAGTAGGTTGTATAGTT    116485

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!