tcl - 检查 TCL 中是否存在列表元素找不到它

Question

我有 tcl 字符串列表

set NameList [list 'foo' 'moo 1' 'too 1 3' 'Enterprise 1'] 
and i try to check if "foo" is in the list but i get false
set test "foo"
 if {[lsearch -exact $NameList $test] >= 0} {    
        return 1
  }   

更新
我用单引号更改了双引号但是我用“foo”设置了变量测试
但还是不行

Answer 1

当我尝试你的代码时，它对我来说完全正确:

% set NameList [list "foo" "moo 1" "too 1 3" "Enterprise 1"] 
foo {moo 1} {too 1 3} {Enterprise 1}
% if {"foo" in $NameList} { puts "got it!" }
got it!
% lsearch -exact $NameList "foo"
0
% lsearch -exact $NameList "not there at all"
-1

用 {...} 代替 "..." 的字符串自动引用不是任何你需要担心的事情。它不会影响列表中的值；它们将完全是您指定的字符串。

哦，对于简单的文字值包含测试，请考虑我在上面使用的 in 运算符。它更清楚，更能说明您的意思。在任何当前支持的 Tcl 版本中可用(即在 8.5 中引入)。