perl - 区切り文字を使用してファイルを 1 行に分割する

Question

こんにちは、次のファイルがあります。

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

などなど;

次の形式で必要です。

>101
ADFGLALALGHJGKGL
>102
ASKDDJKJSKAKAKKKPP
>103
AKNCPFIGJSKSK

これどうやってするの？おそらくperlワンライナー？

どうもありがとう！

Answer 1

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

先頭に改行chompがない場合(が false) 、末尾の改行 ( ) を削除します。また、これが最初の行ではなく ( ) 、行の先頭に aがある場合は、行の先頭に改行を追加します( )。>!s/^>/\n>/$.!=1>s/^>/\n>/

Answer 2

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