awk,Perlでのテキスト処理

Question

■実現したいこと

以下の様なテキストファイルがある場合にawkのワンライナー、またはPerlで表示結果の様に表示させたいです。
色々試したのですがうまくいかずにお力添え頂ければ幸いです。

---textfile----

int A
des A-1
test1
test2
test3
!
int B
des B-1
test1
test2
!
int C
des C-1
test1

---表示結果---

A A-1
B B-1
C C-1

Answer 1

レコード区切りが"\n!\n"なので、

awk -v RS="\n!\n" '{print $2,$4}'

色々試したのですがうまくいかず

その色々試したことをちゃんと質問に書きましょうというのが良く指摘されている追記依頼です。

Comments

[doc1999]

ご回答ありがとうございます。
新しい使い方を知りました。
私の環境では少しエラーになりましたが第一歩進みました。

[localhost test]$ cat aaa | awk -v RS="\n!\n" '{print $2,$4}'
-bash: !\n": event not found
[localhost test]$ cat aaa | awk -v RS="\n\!\n" '{print $2,$4}'
awk: 警告: エスケープシーケンス `\!' は `!' と同等に扱われます
A A-1
B B-1
C C-1
[localhost test]$

[ikapy]

なるほど、RS（レコードセパレーター）を"\n!\n"にして、RSまでの2番目、4番目をprintするのですね。感心しました。最後は、!で終わっていないのでどうかなと思って実際に実行したらうまく行きました。awk賢い。ちなみに、私のcygwinでは、!がヒストリーと解釈されたので、RS="\n\!\n"としてうまくいきました。

[otn]

> -bash: !\n": event not found

あ、スクリプトにせずにワンライナー打ち込みでしたね。失礼しました。
ダブルクォートじゃなくシングルクォートにしてください。

[doc1999]

＞ダブルクォートじゃなくシングルクォートにしてください。
誠にありがとうございます！
シングルクォートにした所、エラーも出なくなりました！
大変勉強になりました、ありがとうございます！