Formate o conteúdo do arquivo usando Perl

Question

Eu tenho um arquivo com o seguinte formato:

>Country1 
Aus
trali
a

>Country5
Swi
tzer
land

>Country2
Net
herland
s

Eu quero produzir um arquivo com o seguinte formato:

>Country1 Australia
>Country5 Switzerland
>Country2 Netherlands

    

Answer 1

Uma solução Perl direta:

$ perl -lne '
    if(/^>/) {printf "%s ", $_;next}
    if(/^$/) {printf "\n";next}
    printf "%s", $_;
' file
>Country1 Australia
>Country5 Switzerland
>Country2 Netherlands

ou um caminho mais curto:

$ perl -ane 'BEGIN{$/="";};print "$F[0] ",@F[1..$#F],"\n"' file
>Country1 Australia
>Country5 Switzerland
>Country2 Netherlands

Defina $/ como cadeia vazia, o que faz com que o Perl mude para o modo de parágrafo, o que significa que o separador de registro é uma ou mais linhas em branco.

    

Answer 2

Use a -p switch para processar o arquivo linha por linha e exibir cada linha processada . Substitua a nova linha por um espaço se a linha começar com > e por nada se iniciar por outro caractere não pertencente à nova linha (ou seja, se não estiver vazio).

perl -pe 'if (/^>/) {s/\n/ /} elsif (/^./) {s/\n//}'