arrays - 无法读取 : variable isn't array

Question

我有以下代码:

set arr1(a1) t1
set arr2(a2) t2
set l1 {}
lappend l1 arr1
lappend l1 arr2

set arr3(a3) $l1

foreach names [array names arr3] {
    set value $arr3($names)
    puts "names = $names, value = $value"
    foreach ar $value {
      if {[array exists $ar]} {
        puts "$ar is an array"
        foreach {key val} [array get $ar] {
          set d1 $ar($key)
          puts "ar key = $key value = $val "
        }
      }
    }
  }

但是当我运行 tcl 脚本时，“set d1 $ar($key)”这一行失败了。错误消息是“无法读取“ar(a1)”:变量不是数组”。您能否建议导致错误的原因以及我该如何解决。

Answer 1

当您使用语法 $ar($key) 时，您是在数组 ar 中查找键 $key 并返回它的值(value)。这就是 Tcl 被定义为工作的方式，它是在基本语言语法中。但是，您使用 ar 变量来保存标量值，而不是数组(两者完全分开；数组不是值，但列表和字典是).这就是您收到错误消息的原因。

要从变量中命名的数组中读取，您要么需要使用更长的语法，以便替换变量名，然后从该变量中读取(默认情况下，Tcl 不会为您执行此操作，因为如果你没有为此做好准备是非常危险的)或者你需要为命名数组变量创建一个别名。

通过 set 进行双重替换

set d1 [set ${ar}($key)]

这是可行的，因为 $... 实际上(在幕后)是带有单个参数的 set 的别名。 (好吧，除了它实际上调用命令；它们都调用相同的 C API。)我们使用 ${...} 形式来限制什么初始的 $ 用作它的变量名。请注意，如果您将数组元素名称放入 ar 中，您会得到奇怪的结果。

给数组或元素起别名

upvar 0 $ar theAlias
set d1 $theAlias($key)

upvar 命令将变量链接在一起，特别是当使用 0 作为它的第一个参数时，它在当前范围内为变量设置别名。通过将 theAlias 设置为实际数组(由 $ar 命名的那个)的固定别名，我们就可以像访问普通数组一样访问它。你也可以直接给一个元素起别名:

upvar 0 ${ar}($key) theAlias
set d1 $theAlias

注意与上面的 set 解决方案相同的语法；我们想要元素的名称，而不是读取它。 (警告:不要给全局 env 数组的元素起别名；耦合到系统环境变量的代码不能以友好的方式使用别名。)

使用 upvar 的主要问题是您不能将 theAlias 变回非别名变量(尽管您可以通过调用 重新定位别名upvar 再次)而不是通过丢弃当前堆栈帧(对于过程体来说微不足道，对于通过 namespace delete 命名空间来说不是太难，但是全局命名空间有问题，因为删除终止整个 Tcl 解释器)。