这个期望语句在 TCL 中是如何工作的？

Question

我阅读了以下代码，但我不明白它是如何工作的：

set accum ""
set timeout 1
    expect {
        -re {.+} {
            set accum "${accum}$expect_out(0,string)" 
            exp_continue
        }
    }
set timeout 10

一开始，我们设置了accum和timeout，那么有一个expect命令尝试匹配什么？之后，我们将超时设置为 10，整个代码是如何工作的？这是什么意思？

Answer 1

直到代码超时（在任何东西的最后一次匹配后 1 秒 ），只要它匹配某些东西（这是任何字符序列 - 可能不包括换行符 - 因为 -re {.+}）它将它附加到 accum 变量并重新启动期待某些东西（exp_continue 确实很神奇）。

使用append accum $expect_out(0,string) 会更高效，但它的完成方式并没有错误。