Do-while in Expect脚本

Question

我编写了以下代码并尝试执行它。但我在执行do {“

时面对”无效的命令名称“

代码：

#!/usr/bin/expect
set val 0;
set input 5;

do {
    puts "\nval = $val"
    set input [expr $input-1];
    set val [expr $val+1];
} while {input}

请让我知道解决此问题。 在Expect脚本中是否存在？

Answer 1

简短的回答是否定的。

稍长的答案是：

while true {
    puts "\nval = $val"
    incr val
    if {[incr input -1] == 0} break
}

可以找到完整的讨论on the Tcl wiki。