tcl在迭代列表中的項目時獲得正則表達式匹配

Question

我是一名新手，並且在使我的tcl腳本正常工作時遇到了一些麻煩。我在網上搜索，似乎無法理解我做錯了什麼。下面是我寫的：

set list {f01-1 f01-2 f02-1 m01-1 m01-2 m02-1} 
foreach item $list { 
    if { [regexp {\w\d\d} $list match ] } { 
     puts $match 
    } 
} 

這裏的輸出我得到：

f01 
f01 
f01 
f01 
f01 
f01 

然而，這是我想做什麼，並有望獲得：

f01 
f01 
f02 
m01 
m01 
f02 

有誰有什麼建議獲得我的預期？

謝謝你提前！

Answer 1

你的代碼片段似乎並不符合您的實際代碼，但我猜$string有同樣的事情$list，這意味着你要重新運行在原始字符串的正則表達式多次，而不是在每個項目上。此外你的正則表達式是錯誤的。下面應該工作：

set list {f01-1 f01-2 f02-1 m01-1 m01-2 m02-1} 
foreach item $list { 
    if { [regexp {\w\d+} $item match ] } { 
     puts $match 
    } 
} 

這裏的顯着差異，除了固定的正則表達式，是現在它在$item運行它，而不是在$list。

Answer 2

[正則表達式{\ W \ d \ d} $列表匹配]將試圖找到在給定的列表指定的RE的第一次出現。

相反，你應該這樣做：

[正則表達式{\ W \ d \ d} $項目匹配] RE是否匹配，這將檢查每個項目並打印！