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} {
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
仔细体会一下break的妙用吧。