tcl/tk例項詳解——foreach
阿新 • • 發佈:2018-12-30
foreach迴圈,熟悉其它語言程式的foreach命令的話就可以忽視此文了。
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的妙用吧。
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
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;
}
a b c 仔細體會一下break的妙用吧。