expect - Expect 脚本中的 Do-while

Question

我编写了以下代码并尝试执行它。但我在执行 do {”时遇到“无效的命令名称“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 脚本中是否存在 do-while ？

Answer 1

简短的回答是否定的。

稍微长一点的答案是:

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

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