使用 Perl 格式化文件的内容

Question

我有一个具有以下格式的文件：

>Country1 
Aus
trali
a

>Country5
Swi
tzer
land

>Country2
Net
herland
s

我想输出以下格式的文件：

>Country1 Australia
>Country5 Switzerland
>Country2 Netherlands

Answer 1

一个直接的Perl解决方案：

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

或更短的方式：

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

设置$/为空字符串会导致 Perl 切换到段落模式，这意味着记录分隔符是一个或多个空行。