将数组传递给 tcl 中的函数。只有upvar吗？

Question

据我了解，在 tcl 中，如果要将命名数组传递给函数，则必须通过被调用者体内的 upvar 命令访问调用者的上层作用域。这是在 tcl 中传递数组的唯一方法吗？

Answer 1

正如迈克尔指出的，有多种方法，还有一个讨论它的维基页面。只是为了在这里获得一些信息，一些选项是：

By Upvar

proc by_upvar {&arrName} {
    upvar 1 ${&arrName} arr
    puts arr(mykey)
    set arr(myotherkey) 2
}
set myarr(mykey) 1
by_upvar myarr
info exists myarr(myotherkey) => true

• 导致调用者看到的数组更改

By array get/set

proc by_getset {agv} {
    array set arr $agv
    puts arr(mykey)
    set arr(myotherkey) 2
    return [array get arr]
}
set myarr(mykey) 1
array set mynewarr [by_upvar myarr]
info exists myarr(myotherkey) => false
info exists mynewarr(myotherkey) => true

• 导致调用者看到的数组更改调用者看到的数组
• 类似的机制可用于返回数组

Answer 2

还有其他方法，比如先将其转换为列表（通过array get 和数组集）。

Answer 3

如果您只传入数组的值，则可以传入字典（提示：array get 将数组序列化为字典值）并使用 dict 命令访问其中的值。但如果您想访问实时值，upvar 绝对是最简单的。这也是一种非常快的技术；在 upvar 本身完成后，它会在变量访问期间编译为指针的额外遍历。