regex - 在TCL中匹配正则表达式的问题

我有以下模式

Notif[0]:
some text multiple line
Notif[1]:
multiple line text
Notif[2]:
text again
Notif[3]:
text again
Finish

我正在写以下正则表达式

set notifList [regexp -inline -all -nocase {Notif\[\d+\].*?(?=Notif|Finish)} $var]

它没有给出期望的输出
输出所需的

I need a list with each `Notif`block

最佳答案

原因是您的.*?充当贪婪的子模式(= .*匹配0+任何字符，包括换行符)，因为该模式中的第一个量词是贪婪的(请参阅\d+)。参见this Tcl Regex reference:

分支的优先级与其第一个量化原子的优先级相同。

您只需在第一个+量化子模式后添加一个?，即可将其转变为惰性模式:

Notif\[\d+?\].*?(?=Notif|Finish)
          ^

这将防止.*?模式从\d+继承贪婪。

见IDEONE demo