TCL 中upvar 用法 (摘自http://www.cnblogs.com/kane1990/archive/2011/12/19/2293981.html)

可以用 upvar 命令模拟传引用调用的行为，这对数组特别有用。如果a是一个数组，就不能像myproc $a这样把它传给过程myproc，因为并没有 对应整个数组的值；只有对应各个数组元素的值。 但是可以把数组名传给过程，myproc a，然后使用upvar命令在过程中访问数组的元素。 下面是在过程中使用upvar的简单示例，输出一个数组的内容： proc printArray {name} { upvar $name a foreach el [ lsort [ array names a]] {   puts "$el=$a($el)" } }

set info(age) 37 set info(position) "vice president" printArray info =>age=37   position=vice president 上述代码中upvar命令使得过程可以通过变量a访问这个数组。

TCL 中upvar 用法 (摘自http://www.cnblogs.com/kane1990/archive/2011/12/19/2293981.html)