可以用 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访问这个数组。