Perl正規表現で複数の置換を受け取りません

Question

1行のテキストに複数の置換を実行しようとしていますが、動作していないようです。

QUEUE(DLR_BRKR_TIXX_IN_PROD) TYPE(QLOCAL) CURDEPTH(0) QUEUE(DLR_BRKR_TIXX_OUT_PROD) TYPE(QLOCAL) CURDEPTH(0) QUEUE(TKT_BRKR_TIXX_IN_2) TYPE(QLOCAL) CURDEPTH(0) QUEUE(TKT_BRKR_TIXX_OUT_2) TYPE(QLOCAL) CURDEPTH(0) 

Regex: s/QUEUE\(([^)]*)\).*CURDEPTH\((\d+)\)/\1:\2/g 

これはマッチングおよび最初の一致に置換されている：QUEUE（DLR_BRKR_TIXX_IN_PROD）TYPE（QLOCAL）CURDEPTH（0）。

非常に明白なものがありませんか？

ありがとうございました。

Answer 1

.*は貪欲であるため、実際には1回の試合で最初の試合と最後の試合が一致することがわかります。

ではなく

s/QUEUE\(([^)]*)\).*?CURDEPTH\((\d+)\)/\1:\2/g 

を試してみてください。