Do-while在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。