在 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

改为。