tcl/tk实例详解——foreach

    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} {
    put