Isso é realmente trivial em Perl, você não deveria odiá-lo!
perl -i.bak -pe 's/>\n/>/' file
Explicação
-
-i
: edite o arquivo no lugar e crie um backup do original chamadofile.bak
. Se você não quiser um backup, use apenasperl -i -pe
. -
-pe
: leia o arquivo de entrada linha a linha e imprima cada linha depois de aplicar o script fornecido como-e
. -
s/>\n/>/
: a substituição, assim comosed
.
E aqui está uma abordagem awk
:
awk '{if(/>$/){printf "%s",$0}else{print}}' file2