tcl 中while 循环控制示例

下面是一个 tcl 中的 while 循环控制示例：

set i 0
while {$i < 10} {
  puts "i is $i"
  set i [expr {$i + 1}]
}

这个示例中，我们定义了变量 i 并将其赋值为 0。然后，我们使用 while 循环来重复执行一个代码块，直到 i 的值大于等于 10。在代码块中，我们打印出 i 的值，并将 i 的值递增一。这个 while 循环将打印出从 0 到 9 的整数。