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的妙用吧。