tcl oreach的使用

 foreach循环，熟悉其它语言程序的foreach命令的话就可以忽视此文了。
    命令请参考：http://blog.csdn.net/dulixin/archive/2008/03/28/2226874.aspx
    foreach循环，格式为：
    foreach varname list body
    foreach varlist1 list1 ?varlist2 list2 ...? body
    主要功能为遍历列表中的元素。
    主要有三种使用形式，最简单的，对单个列表中的元素进行一个一个的遍历：
    % foreach var {a b c d e f} {
    puts $var
    }
    a
    b
    c
    d
    e
    f
    可以对列表进行多个元素一起赋值，这时varname是一个n个元素列表结构，每次遍历list列表中的n个元素赋值给以varname列表元素为名称的变量。
    % foreach {var1 var2 var3} {a b c d e f} {
    puts "$var1 $var2 $var3"
    }
    a b c
    d e f
    遍历多个列表中的元素，这里举例以varname为单个元素为例：
    % foreach var1 {a b c} var2 {d e f} {
    puts "$var1 $var2"
    }
    a d
    b e
    c f
    如果元素不足那么会以空来补充：
    % foreach var1 {a b c} var2 {d e} {
    puts "$var1 $var2"
    }
    a d
    b e
    c
    可以利用这个技巧给变量赋值，比如把一个列表中的前3个元素分别赋值给var1、var2和var3：
    % foreach {var1 var2 var3} {a b c d e f} {
    break;
    }
    % puts "$var1 $var2 $var3"
    a b c