如何访问tcl中的以下代码

我想使用for循环获取ya0和ya1的值。
但下面的代码不起作用

set ya0 12  
set ya1 16  
for {set i 0}  {$i < 2} {incr i} {  
puts "$ya{$i}"  
}    

设置ya0 12
设置ya1 16
对于{set i 0}{$i<2}{incr i}{
放入“$ya{$i}”
}    

你就快到了

set ya0 12  
set ya1 16  
for {set i 0} {$i < 2} {incr i} {  
    puts [set ya$i]
}  

在这两种情况下，

set

命令用于从一个直到运行时才知道名称的变量中获取值

如果要从根（

ya

）和变量后缀/索引（0，1，…）构造变量名，

数组

非常有用：

set ya(0) 12  
set ya(1) 16  
for {set i 0} {$i < 2} {incr i} {  
    puts $ya($i)
}  

设置ya（0）12
第（1）16组
对于{set i 0}{$i<2}{incr i}{
卖出$ya（$i）
}  

有时，当一个人这样做时，他真正想要的是一张清单：

set ya [list 12 16]
for {set i 0} {$i < 2} {incr i} {  
    puts [lindex $ya $i]
}
# or (better)
foreach val $ya {
    puts $val
}

set ya[列表12 16]
对于{set i 0}{$i<2}{incr i}{
卖出[lindex$ya$i]
}
#或（更好）
外币$ya{
放入$val
}

文档：，，，

您就快到了

set ya0 12  
set ya1 16  
for {set i 0} {$i < 2} {incr i} {  
    puts [set ya$i]
}  

在这两种情况下，

set

命令用于从一个直到运行时才知道名称的变量中获取值

如果要从根（

ya

）和变量后缀/索引（0，1，…）构造变量名，

数组

非常有用：

set ya(0) 12  
set ya(1) 16  
for {set i 0} {$i < 2} {incr i} {  
    puts $ya($i)
}  

设置ya（0）12
第（1）16组
对于{set i 0}{$i<2}{incr i}{
卖出$ya（$i）
}  

有时，当一个人这样做时，他真正想要的是一张清单：

set ya [list 12 16]
for {set i 0} {$i < 2} {incr i} {  
    puts [lindex $ya $i]
}
# or (better)
foreach val $ya {
    puts $val
}

set ya[列表12 16]
对于{set i 0}{$i<2}{incr i}{
卖出[lindex$ya$i]
}
#或（更好）
外币$ya{
放入$val
}

文档：，，，

subst/set 可以使用subst或set计算变量名的值

subst:

set ya0 12  
set ya1 16  
for {set i 0}  {$i < 2} {incr i} {
    set varname ya${i}
    puts [subst "$$varname"]
}

subst/集 可以使用subst或set计算变量名的值

subst:

set ya0 12  
set ya1 16  
for {set i 0}  {$i < 2} {incr i} {
    set varname ya${i}
    puts [subst "$$varname"]
}