Tcl - While 循环

---

Tcl 语言中的while循环语句只要给定的条件为真，就会重复执行目标语句。

句法

Tcl 语言中while循环的语法是 -

while {condition} {
   statement(s)
}

这里，语句可以是单个语句或语句块。条件可以是任何表达式，true 是任何非零值。当条件为真时，循环会迭代。

当条件变为假时，程序控制将传递到紧随循环后面的行。

流程图

关于while循环需要注意的一点是该循环可能永远不会运行。当条件测试结果为假时，将跳过循环体并执行 while 循环后的第一条语句。

例子

#!/usr/bin/tclsh

set a 10

#while loop execution 
while { $a < 20 } {
   puts "value of a: $a"
   incr a
}

当上面的代码被编译并执行时，它会产生以下结果 -

value of a: 10
value of a: 11
value of a: 12
value of a: 13
value of a: 14
value of a: 15
value of a: 16
value of a: 17
value of a: 18
value of a: 19