foreach - TCL - foreach 中的运行时错误

Question

好的，伙计们，我遇到了 tcl 脚本的奇怪错误。这是工作代码：

foreach param $bucket {
if {[lindex $param 0] == "bucketState" &&\
  ([lindex $param 1] == "provisioned" ||\
  [lindex $param 1] == "Active")} {
  set activatedFlag "TRUE"
 }
}

这不是：

foreach param $bucket {
if {[lindex $param 0] == "bucketState" &&\
  ([lindex $param 1] == "provisioned" ||\
  [lindex $param 1] == "active")} {
  set activatedFlag "TRUE"
 }
}

唯一的区别在于“活跃”与“活跃”。o_o

Answer 1

我不确定您遇到了什么错误，但您比较的列表元素看起来很明显区分大小写。如果您想进行不区分大小写的搜索，请使用string tolower但我真的不明白您为什么需要这样做。

foreach param $bucket {
if {[lindex $param 0] == "bucketState" && \
  ([lindex $param 1] == "provisioned" || \
  [string tolower [lindex $param 1]] == "active")} {
  set activatedFlag "TRUE"
 }
}