вопрос по awk и sed

[Reiser]

Есть файл типа

Код: Выделить всё

>10MH:A|PDBID|CHAIN|SEQUENCE
MIEIKDKQLTGLRFIDLFAGLGGFRLALESCGAECVYSNEWDKYAQEVYEMNFGEKPEGDITQVNEKTIPDHDILCAGFP
CQAFSISGKQKGFEDSRGTLFFDIARIVREKKPKVVFMENVKNFASHDNGNTLEVVKNTMNELDYSFHAKVLNALDYGIP
QKRERIYMICFRNDLNIQNFQFPKPFELNTFVKDLLLPDSEVEHLVIDRKDLVMTNQEIEQTTPKTVRLGIVGKGGQGER
IYSTRGIAITLSAYGGGIFAKTGGYLVNGKTRKLHPRECARVMGYPDSYKVHPSTSQAYKQFGNSVVINVLQYIAYNIGS
SLNFKPY
>10MH:C|PDBID|CHAIN|SEQUENCE
GTCAGCGCATGG
>10MH:B|PDBID|CHAIN|SEQUENCE
CCATGCGCTGAC

Необходимо привести к виду

Код: Выделить всё

>10MH:A|PDBID|CHAIN|SEQUENCE MIEIKDKQLTGLRFIDLFAGLGGFRLALESCGAECVYSNEWDKYAQEVYEMNFGEKPEGDITQVNEKTIPDHDILCAGFPCQAFSISGKQKGFEDSRGTLFFDIARIVREKKPKVVFMENVKNFASHDNGNTLEVVKNTMNELDYSFHAKVLNALDYGIPQKRERIYMICFRNDLNIQNFQFPKPFELNTFVKDLLLPDSEVEHLVIDRKDLVMTNQEIEQTTPKTVRLGIVGKGGQGERIYSTRGIAITLSAYGGGIFAKTGGYLVNGKTRKLHPRECARVMGYPDSYKVHPSTSQAYKQFGNSVVINVLQYIAYNIGSSLNFKPY
>10MH:C|PDBID|CHAIN|SEQUENCE GTCAGCGCATGG
>10MH:B|PDBID|CHAIN|SEQUENCE CCATGCGCTGAC
(Первая и вторая строки - это одно целое, т.к. такие длины строк парсер переносит)

Т.е. убрать разбиение по ширине на 80, склеить всё в строки, начинающиеся с ">", убрать лишние пробелы, оставив только между |SEQUENCE и последующим.

Решение уже написано, но оно получилось корявым трёхэтажным awk. Какой наиболее красивый способ?

Моё решение:

Код: Выделить всё

gawk '{printf $0" "}' input.txt | gawk 'BEGIN {RS=">"} {if (NR!=1) {print ">"$0}}' | sed 's/ //g' | sed 's/|SEQUENCE/|SEQUENCE /' | grep :$j | tr " " "\n" >> a.out

[Хостинг HostFood.ru]

Тарифы на хостинг в России, от 12 рублей: https://www.host-food.ru/tariffs/hosting/
Тарифы на виртуальные сервера (VPS/VDS/KVM) в РФ, от 189 руб.: https://www.host-food.ru/tariffs/virtualny-server-vps/
Выделенные сервера, Россия, Москва, от 2000 рублей (HP Proliant G5, Intel Xeon E5430 (2.66GHz, Quad-Core, 12Mb), 8Gb RAM, 2x300Gb SAS HDD, P400i, 512Mb, BBU):
https://www.host-food.ru/tariffs/vydelennyi-server-ds/
Недорогие домены в популярных зонах: https://www.host-food.ru/domains/

[x6e6564]

возможно коряво, но тоже вариант

Код: Выделить всё

cat ~/test | xargs | tr '\>' '\n' | sed '1d; s/^/\>/g; s/ //g; s/|SEQUENCE/|SEQUENCE /g'

[Гость]

корявым трёхэтажным awk

ты о переносе строк не слышал? Anyway, че-то у тя длинно получилось и ти использовал не только awk. Конкретно для твоего примера можно так

Код: Выделить всё

$ gawk '/>/ { if(NR != 1) printf "\n"; printf $0" " } !/>/ { printf $0 }' input.txt

[Гость]

с переносами строк это будет выглядеть так

Код: Выделить всё

$ gawk '
/>/ {
    if(NR != 1)
        printf "\n"
    printf $0" "
}

!/>/ {
    printf $0
}
' input.txt

[Гость]

tr '\>' '\n'

это можно заменить на

Код: Выделить всё

sed 'y/>/\n/'

[Reiser]

вот что-то мой sed не переваривает sed 's/>/\n/' - заменяет > на просто n.

[Гость]

должно работать не только ня фряшном, но и на gsed 4.2.1. Ты не путаешь y/>/\n/ с s/>/\n/?