シェルスクリプトの出力ログの整形をしたい

Question

実現したいこと

シェルスクリプトを使用し、コマンドの実行結果を下記のように
一行に出力させたいです。

コマンド実行結果
（例）
1 : DISPLAY QLOCAL(*) CURDEPTH
AMQ8409: キューの内容を表示します。
QUEUE(M06QM1.CTL001.QUEUE) TYPE(QLOCAL) CURDEPTH(0)
AMQ8409: キューの内容を表示します。
QUEUE(M06QM1.DB001.QUEUE) TYPE(QLOCAL) CURDEPTH(0)
AMQ8409: キューの内容を表示します。
QUEUE(M06QM1.DB002.QUEUE) TYPE(QLOCAL) CURDEPTH(0)
～省略～

発生している問題

コマンド結果をそのまま出力すると下記のように
改行が入ってしまいます。

1 : DISPLAY QLOCAL(*) CURDEPTH
AMQ8409: キューの内容を表示します。
QUEUE(M06QM1.CTL001.QUEUE) TYPE(QLOCAL)
CURDEPTH(0)
AMQ8409: キューの内容を表示します。
QUEUE(M06QM1.DB001.QUEUE) TYPE(QLOCAL)
CURDEPTH(0)
AMQ8409: キューの内容を表示します。
QUEUE(M06QM1.DB002.QUEUE) TYPE(QLOCAL)
CURDEPTH(0)
～省略～

Perlなら整形ができるとわかり、試行錯誤していましたがうまくいきませんでした。
初めての質問なので、説明不足等あると思いますが、ご教示のほどよろしくお願いします。

補足情報

実行コマンド
echo "DISPLAY QLOCAL(*) CURDEPTH" |runmqsc M06QM1 >> ${RESULT_LOG}

Comments

[takasima20]

ちなみに stty size ってうつとなんと出ますかね?

[toshiki34]

回答ありがとうございます。

「モード（size）はサポートされていません。」
と表示されました。

[takasima20]

なるほどです。とりあえず(私は貢献してませんが)解決したようでよかったです。

Answer 1

「CURDEPTH(0)という単語の後以外は改行を入れない」であれば、多分こんなかんじ。

何らかのコマンド | perl -CSD -ne '/CURDEPTH(0)/ or chomp; print'

Comments

[toshiki34]

回答ありがとうございます。

私の情報不足でCURDEPTHに０以外の値が入っている箇所があり、そこ以外はうまくいきました。
こちらのコマンドをもとに修正します。
ありがとうございました。

Answer 2

条件が不明瞭ですが、「QUEUEで始まる行は、次の行と繋ぐ」であれば、

awk '/^QUEUE/{getline nxt;print $0 " " nxt;next}{print}'

ですね。

Comments

[toshiki34]

回答ありがとうございます。

条件が不明瞭で申し訳ありません。
echo "DISPLAY QLOCAL(*) CURDEPTH" |　runmqsc M06QM1 | awk '/^QUEUE/{getline nxt;print $0 " " nxt;next}{print}' >> ${RESULT_LOG}
で試してみましたが、
echo "DISPLAY QLOCAL(*) CURDEPTH" |　runmqsc M06QM1 >> ${RESULT_LOG}
と同じ出力結果になってしまいました。

[otn]

前提が違うのであれば対応も異なります。