搜索在TCL

Question

匹配值我有以下列出

set a [list aa ab abc1 120 2ab 00] 
set b [list aa bb dd] 
set c [list ab bc cd] 
set d [list abc0 abc1 abc2] 
set e [list 110 040 120] 
set f [list 1ab 2ab 3ab 4ab] 
set g [list 00 11 22] 

從列表「B」列出的「g」我想與列表來搜索「一」，也如有匹配，那麼找到我想要的價值。

-inline將給出完全匹配但是對於單個元素。對於我寫在下面的代碼的多個值，但它沒有給我終端輸出。

考慮一個例子找到列表之間的匹配值「a」和列表「B」

foreach content $b { 
set matching_value [lsearch -inline $a $content] 
} 

並且如果發現匹配，該值應該返回，我不想與未來值進行比較如果有的話，在同一個列表中

puts $matching_value不給我任何輸出，一旦找到匹配，我應該怎麼休息？

Answer 1

最簡單的方法可能是，如果該值存在抓取索引，並做了lindex和break：

foreach content $b { 
    set idx [lsearch $a $content] 
    if {$idx >= 0} { 
     set matching_value [lindex $a $idx] 
     break 
    } 
} 

我們使用索引，因爲這時我們可以絕對確定搜索失敗;我們沒有保證一般當使用lsearch -inline時，因爲理論上任何值都可能出現在列表中。