tcl的坑

1 当使用foreach的时候

error: wrong # args: should be "foreach varList list ?varList list ...? command"

foreach s1_block $s1_blocks {
    puts $s1_block
    foreach s1_item $s1_items($s1_block){
        puts $s1_item
    }
}

原因是foreach s1_item s1_block){
}
最后的括号和大括号之间没有空格。

2 在tcl中

即使注释掉的 大括号 {}，还是会匹配的，一定要注意。