TCL中如何读取带动态递增编号的变量？

错误原因 #

你遇到的报错是因为Tcl的变量替换规则：$res01_hop$a会被优先解析为$res01_hop加上$a，但你并没有定义res01_hop这个变量，只创建了res01_hop1、res01_hop2这类带后缀的变量，所以触发"no such variable"错误。

解决方法 #

方法1：使用set命令的间接引用 #

通过set命令先拼接出完整的变量名，再读取对应的值，有两种写法：

分步拼接变量名

for {set a 1} {$a <= $highesthopcount} {incr a} {
    # 先拼接出完整的变量名
    set var_name "res01_hop$a"
    # 用set读取变量值
    puts "showing variable [set $var_name]"
}

简洁写法

直接在set中完成变量名拼接，一步读取值：

for {set a 1} {$a <= $highesthopcount} {incr a} {
    puts "showing variable [set res01_hop$a]"
}

方法2：改用数组（推荐） #

在Tcl中，使用数组存储这类带序号的动态数据是更规范的做法，代码可读性更高，也能避免变量名混乱。

修改变量创建代码

set res01_ipsladata [split [exec "show ip sla history"] \n]
set res01_lineindicator 0
foreach line $res01_ipsladata {
    if {[llength $line] >= 1} {
        incr res01_lineindicator
        # 用数组存储，下标为序号
        set res01_hop($res01_lineindicator) [lindex $line 3]
        set res01_rtt($res01_lineindicator) [lindex $line 5]
    }
}

读取数组元素

for {set a 1} {$a <= $highesthopcount} {incr a} {
    # 直接通过数组下标访问
    puts "showing variable $res01_hop($a)"
}

内容的提问来源于stack exchange，提问作者Mario Jost