只要给定条件为真,用Tcl语言编写的 while 循环语句将重复执行目标语句。
while loop - 语法
while {condition} { statement(s) }
while loop - 流程图

while loop - 示例
#!/usr/bin/tclshset a 10
#while循环执行 while { a </span><span class="pun"><</span><span class="pln"> </span><span class="lit">20</span><span class="pln"> </span><span class="pun">}</span><span class="pln"> </span><span class="pun">{</span><span class="pln"> puts </span><span class="str">"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