如何使用列表元素访问名称带对应前缀的其他TCL列表

原代码异常原因 #

你的代码无法执行有两个层面的问题：

1. 语法格式错误：Tcl中换行默认代表命令结束，foreach的左大括号必须和前面的语句放在同一行，否则解释器会把单独成行的大括号识别为非法独立命令，直接触发报错。
2. 变量访问逻辑错误：${mod}_sig写法仅会生成「mod值拼接_sig」的字符串，不会自动将该字符串作为变量名读取对应的列表内容，因此llength会把这个字符串当成单元素列表处理，永远返回1，无法得到目标列表的实际长度。

正确实现方案 #

方案1：set间接取值（最简写法，适合仅读取的场景） #

Tcl中调用set 变量名且不传入第二个赋值参数时，会直接返回该变量存储的内容，适配你的需求写法如下：

foreach mod $modules {
    # 先拼接变量名，再用set读取对应列表值
    set sig_length [llength [set ${mod}_sig]]
    puts "$mod 对应_sig列表长度：$sig_length"
}

方案2：upvar绑定别名（适合需要读写列表的场景） #

如果后续需要对_sig后缀的列表做增删改操作，用upvar给动态变量绑定固定别名会更易用，避免反复写set取值：

foreach mod $modules {
    # 0代表当前作用域，将${mod}_sig变量绑定到别名sig
    upvar 0 ${mod}_sig sig
    set sig_length [llength $sig]
    puts "$mod 对应_sig列表长度：$sig_length"
    # 后续操作示例：给列表加元素直接写 lappend sig xxx 即可
}

内容的提问来源于stack exchange，提问作者Nilesh Padhi