linux tcl 循环foreach,TCL学习--循环语句 - 虫子的老窝 - 51Testing软件测试网 51Testing软件测试网-软件测试人的精神家园...

■循环命令：while 、for、 foreach

循环命令包括 while、for、foreach等。

■while 命令

语法为: while test body

参数 test 是一个表达式，body 是一个脚本，如果表达式的值非 0，就运行脚本，直到表达式为

0才停止循环，此时while 命令中断并返回一个空字符串。

例如：

假设变量 a 是一个链表，下面的脚本把 a 的值复制到 b：

set b " "

set i [expr [llength $a] -1]

while { $i>=0}{

lappend b [lindex $a $i]

incr i -1

}

■for 命令

语法为: for init test reinit body

参数 init 是一个初始化脚本，第二个参数 test 是一个表达式，用来决定循环什么时候中断，第

三个参数 reinit 是一个重新初始化的脚本，第四个参数 body 也是脚本，　硌　诽濉Ｏ吕　肷

侠　饔孟嗤 ?

set b " "

for {set i [expr [llength $a] -1]} {$i>=0} {incr i -1} {

lappend b [lindex $a $i] }

■foreach 命令

这个命令有两种语法形式

1、 foreach varName list body

第一个参数 varName是一个变量，第二个参数 list 是一个表(有序集合)，第三个参数 body

是循环体。每次取得链表的一个元素，都会执行循环体一次。 下例与上例作用相同：

set b " "

foreach i $a{                                                                     3/25/2006  10:11:08 PM   32

set b [linsert $b 0 $i]

}

2、 foreach varlist1 list1 ?varlist2 list2 ...? Body

这种形式包含了第一种形式。第一个参数 varlist1 是一个循环变量列表，第二个参数是一个列

表 list1，varlist1 中的变量会分别取 list1 中的值。body 参数是循环体。 ?varlist2 list2 ...?

表示可以有多个变量列表和列表对出现。例如：

set x {}

foreach {i j} {a b c d e f} {

lappend x $j $i

}

这时总共有三次循环，x 的值为"b a d c f e"。

set x {}

foreach i {a b c} j {d e f g} {

lappend x $i $j

}

这时总共有四次循环，x 的值为"a d b e c f {} g"。

set x {}

foreach i {a b c} {j k} {d e f g} {

lappend x $i $j $k

}

这时总共有三次循环，x 的值为"a d e b f g c {} {}"。

■break 和 continue 命令

在循环体中，可以用break 和continue命令中断循环。其中 break 命令结束整个循环过程，

并从循环中跳出，continue 只是结束本次循环。

■switch  命令

和C 语言中 switch语句一样，TCL 中的 switch 命令也可以由 if命令实现。只是书写起来较为

烦琐。 switch 命令的语法为: switch ? options? string { pattern body ? pattern

body ...?}

第一个是可选参数 options，表示进行匹配的方式。 TCL 支持三种匹配方式： -exact 方式， -glob

方式，-regexp 方式,缺省情况表示-glob 方式。-exact 方式表示的是精确匹配，-glob 方式的

匹配方式和 string match 命令的匹配方式相同(第八节介绍)，-regexp 方式是正规表达式的                                                                   3/25/2006  10:11:08 PM   33

匹配方式(第八节介绍)。第二个参数 string 是要被用来作测试的值，第三个参数是括起来的一

个或多个元素对，例：

switch $x {

a -

b {incr t1}

c {incr t2}

default {incr t3}

}

其中 a的后面跟一个'－'表示使用和下一个模式相同的脚本。default表示匹配任意值。一旦

switch命令 找到一个模式匹配，就执行相应的脚本，并返回脚本的值，作为 switch命令的返

回值。