perl - 通过分隔符将文件拆分为单行

Question

嗨，我有以下文件：

>101
ADFGLALAL
GHJGKGL
>102
ASKDDJKJS
KAKAKKKPP
>103
AKNCPFIGJ
SKSK

等等等等；

我需要以下格式：

>101
ADFGLALALGHJGKGL
>102
ASKDDJKJSKAKAKKKPP
>103
AKNCPFIGJSKSK

我怎样才能做到这一点？也许是 perl one 班轮？

非常感谢！

Answer 1

perl -npe 'chomp if ($.!=1 && !s/^>/\n>/)' input

chomp如果>开头没有（!s/^>/\n>/为假） ，则删除末尾的换行符（ ）。此外，如果这不是第一行 ( $.!=1) 并且>在行的开头有一个 ( )，则在该行的开头添加一个换行符s/^>/\n>/。

Answer 2

perl -lne '
    if (/^>/) {print}
    else{
        if ($count) {
            print $string . $_;
            $count = 0;
        } else {
            $string = $_;
            $count++;
        }
    }
' file.txt