在Perl正则表达式中没有得到多个替换

Question

我正试图在一行文本上执行多个替换，并且它似乎没有工作。

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

我想你会发现它实际上匹配从第一次到最后一场比赛，因为.*是贪婪的。

尝试

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

代替。