使用TCL / expect脚本在固定时间间隔后从循环中断

Question

我正在编写expect script（TCL）并且希望在以下两个条件中的任何一个中断循环： 1）期待 - 匹配后 2）经过固定的时间间隔 第1条件有效，但第2条不起作用。有什么建议怎么做？

foreach line $commandarray {

send -- $line

sleep 1

send "\r"

while (1) {

  expect -re $currentprompt break

  after 2000 { break }     

send "\x20"

      }

 }