perl - 単一行コマンドによる複数行パターンの削除

Question

ファイル内の空のセグメントをすべて削除したいと考えています。

START空のセグメントは、 で始まり で終わる連続した行のペアによって指定できますEND。有効なセグメントには、START で始まり END で終わる行の間にいくつかのコンテンツがあります

サンプル入力

Header

START arguments
END

Any contents

START arguments
...
something
...
END

Footer

望ましい出力

Header


Any contents

START arguments
...
something
...
END

Footer

ここで、可能なワンライナーを探しています。どんな助けでも大歓迎です。

試練

フォローしてみawkました。ある程度は機能しますが、有効なセグメントであっても START 行を削除します。

awk '/^START/ && getline && /^END$/ {next} 1' file

Answer 1

ガウクのみ

awk -v RS='START[^\n]*\nEND\n' '{printf "%s", $0}' file.txt

Answer 2

/^START/ {
    startline=$0

    next
}

/^END$/ && startline {
    startline=""
    next
}

startline {
    print startline
}

startline=""

1

Answer 3

$ awk '{rec = rec $0 RS} END{ gsub(/START[^\n]*\nEND\n/,"",rec); printf "%s", rec }' file
Header


Any contents

START arguments
...
something
...
END

Footer