Linuxで行をまたぐ正規表現で削除

Question

###前提・実現したいこと
LinuxのRedhatを使ってます。
Sedなどコマンド一つで複数行にまたがる文字列の削除をしたいです。

###発生している問題・エラーメッセージ
下記のような形式な文字列があったとして

---------------sample.txt
aaa123:
a123
b456
c789
bbb456:
a123
ccc789:
b456

aaa123:
a123
b456
c789

この部分だけを削除したいです。

コロンのある行は重複ありません。
タブ先頭の行は重複があるので困ってます。

現在はVIで手動削除しています。

ミスがないようにコマンドで処理したいので
どうぞ宜しくお願いします。

Comments

[otn]

「この部分」とはどの部分でしょうか？「ファイル先頭から最初にc789が出てくるまで」「最初にコロンで終わる行から次のコロンで終わる行の前の行まで」とか色々考えられ、それによって方法が異なります。

[otn]

あと、「タブ先頭の行」とは？

[KSwordOfHaste]

オリジナルの質問文を見ると':'で終わる行以外は先頭にタブがついているようです。

[takasima20]

質問の内容だけみると vi で先頭から4行削除するのが手っ取り早く感じます。間違いが心配なら修正前後の diff とればいいんじゃないかなあ。なんか特別な状況があるのかもしれませんが…

Answer 1

awk に変更しました

awk '{if($1~/.+:$/)w=0;if($1~/^aaa123:$/)w=1;if(w==1)next;print$0;}' sample.txt

Comments

[KojiDoi]

それでは題意を満たさないと思います。

[A.Ichi]

確かに、よく読んでおりませんでした大変失礼をいたしました。

[KSwordOfHaste]

A.Ichiさんのアイデアをそのままawkで

awk '/:\s*$/ {f=0} /^aaa123:\s*$/ {f=1} !f' sample.txt

としても多分よいですよね！

[A.Ichi]

こちらのが方が良いですね。awkは深い。

[yahiro2416]

すごい！　ありがとうございました！！

そしてなんでこうなるのかいまいちわかりませぬ…
もう少し勉強してから実用してみます！

[A.Ichi]

分かる範囲で　awkは　/検索/{処理}の構成で、2つの条件でfに1,0を代入しています。さらに最後のｆが１の時は出力0の時は出力しないを実現していると思われます。ですのでｆを逆しにて
awk '/:\s*$/ {f=1} /^aaa123:\s*$/ {f=0} f' としても良いと考えます。

[KSwordOfHaste]

必ず':'の行で始まる場合は!fでなくfでもよいですね！
ファイルが':'の行で始まらない場合に備えawkの変数のデフォルトがfalseである点に配慮して!fというふうにしていました。CやJavaなど一般の言語と違ってawkみたいなLL的言語のときは「デフォルト状態を強く意識してなるべく簡単に書いてしまう」ことが多い気がします。

[A.Ichi]

その通りです!fの方が良いですね。考えが及びませんでした。

Answer 2

perl -ne 'chomp; /aaa123:$/ ... /:$/ and next; print "$_\n"' sample.txt

追記:上のではbbb456:の行まで消えてしまいますね。A.Ichiさんの回答を参考に別解を考えました。

perl -ne 'chomp; /:$/ and $p=0; /aaa123:/ and $p=1; $p or print "$_\n"' sample.txt