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

Question

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

Answer 1

正如 Michael 所指出的，有多种方法，还有一个讨论它的 wiki 页面。只是为了在这里获得一些信息，一些选项是:

作者: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

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

通过数组获取/设置

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

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