如何找到TCL失蹤串

Question

我有兩組變量，我需要檢查，如果sekhar3在s2

set s1 "sekhar1 sekhar2 sekhar3..............sekharn" 

set s2 "sekhar1 sekhar2 sekhar4..............sekharn" 

Answer 1

proc findMissing {needle haystack} { 
    lmap n $needle {if {$n in $haystack} {continue}; set n} 
} 

set s1 "sekhar1 sekhar2 sekhar3 .............. sekharn" 
set s2 "sekhar1 sekhar2 sekhar4 .............. sekharn" 

findMissing $s1 $s2 

返回其在第一列表中的所有元素缺失，但不在第二。