双阵列对应

Question

我刚刚发现自己在 Tcl 中有两个数组。

我得到了 $W_Array 和 $P_Array。

我需要遍历一个数组，事先不知道每个数组的大小是多少，并且仅当两个数组都有值时才执行命令。是的，数组长度可能不同。

这样做的最佳方法是什么？

Answer 1

其他答案跳到使用列表，我想你的意思是 Tcl 的数组，也称为哈希映射或关联数组。

我认为你在要求类似的东西：

array set a1 {a 1 b 2 c 3 d 4 e 5}
array set a2 {z 0 x 1 b 2 e 99}
foreach n [array names a1] {
  if {[info exists a2($n)]} {
    puts "Do something with $a1($n) and $a2($n)"
  }
}

# FOREACH LOOP RESULTS IN THESE TWO PRINTOUTS
Do something with 5 and 99
Do something with 2 and 2

Answer 2

不确定“两个数组的值”到底是什么意思，但是 tcl 的 foreach 支持一次对多个数组进行迭代......所以你可以说例如
foreach w $W_Array p $P_Array {
如果 {$w == $val && $p == $val} {
...
}
}

当数组长度不同时，foreach 将返回最长数组中的所有值以及任意数组中缺失元素的空值 {}更短的数组。

Answer 3

使用llength命令来查明数组是否包含值。

if {[llength $W_Array] > 0 && [llength $P_Array] > 0} {
# Do something
}