namespaces - TCL中命名空间/上级/全局的使用

Question

我有一个这样的脚本:

proc subProc1 { } {
    puts $var1
}
proc subProc2 { } {
    puts $var2
}

proc mainProc { args } {
    # Define many variables
    subProc1
    subProc2
    #etc.
}

我希望 subProc1 和 subProc2 在 mainProc 中定义变量。我可以将它们作为参数传递，但这是很多参数，我想避免这种情况。

我尝试通过将这一行添加到我 subProcs 来使用 upvar 命令:

subProc1 { } {
    upvar $var1 var1 $var2 var2 ;#etc
    puts $var1
    # etc.
}

但是我有“没有这样的变量”错误消息，像这样的大行并不好

我只是阅读了命名空间，但我真的不明白如何使用它(另外我不确定这个概念，所以它真的适合我的用例吗？)

Answer 1

upvar是正确的工具。其他命令可以用 upvar 模拟.

但是你怎么称呼upvar的方式是错误的.您必须使用变量名，而不是它的值(这会抛出“没有这样的变量”错误)。

upvar var1 var1 var2 var2 ;#...

我会考虑使用一些不同的方式来存储数据，也许是字典或数组？
这将使传递变量更容易。