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

しかし、それは最初のブロックだけを与えています。同じ区切り文字で存在するすべてのブロックを取得する方法。

一度に1つのブロックを作成し、いくつかの操作を実行してから、2番目のブロックを実行することは可能ですか。

Answer 1

オプションを使用-all -inlineします。この場合regexp、コマンドは見つかったすべてのブロックのリストを返します。

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