tcl - 如何在文件中全局匹配正则表达式

Question

我有一个文件说 text.txt 有类似的模式块

<tr> I am nitesh goyal <\tr> nothing nothing <tr> I logged in stackoverflow<\tr> nothing nothing <tr> I want help to solve this <\tr> anyhting anything.

我想获取所有块数据<\tr>。

目前我正在使用正则表达式

I stored the file in a variable buffer
regexp "tr.*?\\tr" $buffer

但它只给出拳头块。如何获取具有相同分隔符的所有块。

是否可以一次有一个块并执行一些操作，然后再进行第二个等等。

Answer 1

使用-all -inline选项。在这种情况下regexp，命令将返回它找到的所有块的列表。

set list_of_found_blocks [regexp -all -inline -- "tr.*?\\t" $buffer]