Tcl 调用编号变量

在Tcl中，我为循环中的编号变量赋值。 如何在另一个循环中调用这些变量

for {set colNum 1} {$colNum < 37} {incr colNum} {
    set Col$colNum 0
}   

用于{set colNum 1}{$colNum<37}{incr colNum}{
设置列$colNum 0
}   

用于{set colNum 1}{$colNum<37}{incr colNum}{
放入“$Col$colNum”
}

如果它们位于同一名称空间中，则可以通过以下方式使用

设置：

for {set colNum 1} {$colNum < 37} {incr colNum} {
    set Col$colNum 0
}   
for {set colNum 1} {$colNum < 37} {incr colNum} {
    puts [set Col$colNum]
}

或用于创建别名（在下面的示例中，我正在对全局命名空间
#0
使用
upvar
）：

用于{set colNum 1}{$colNum<37}{incr colNum}{
设置列$colNum 0
}   
对于{set colNum 1}{$colNum<37}{incr colNum}{
upvar#0列$colNum currentCol
放入$currentCol
}
如果它们位于同一名称空间中，则可以通过以下方式使用
设置：

for {set colNum 1} {$colNum < 37} {incr colNum} {
    set Col$colNum 0
}   
for {set colNum 1} {$colNum < 37} {incr colNum} {
    puts [set Col$colNum]
}

或用于创建别名（在下面的示例中，我正在对全局命名空间
#0
使用
upvar
）：

用于{set colNum 1}{$colNum<37}{incr colNum}{
设置列$colNum 0
}   
对于{set colNum 1}{$colNum<37}{incr colNum}{
upvar#0列$colNum currentCol
放入$currentCol
}

for {set colNum 1} {$colNum < 37} {incr colNum} {
    set Col($colNum) 0
}   
for {set colNum 1} {$colNum < 37} {incr colNum} {
    puts $Col($colNum)
}

for {set colNum 1} {$colNum < 37} {incr colNum} {
    set Col$colNum 0
}   
for {set colNum 1} {$colNum < 37} {incr colNum} {
    upvar #0 Col$colNum currentCol
    puts $currentCol
}