在 TCL-8.5 中使用 Spawn-Expect 机制

Question

set pipeline [open "|Certify.exe args" "r"]
fconfigure $pipeline -blocking false
fconfigure $pipeline -buffering none
fileevent $pipeline readable [list handlePipeReadable $pipeline]


proc handlePipeReadable {pipe} {
if {[gets $pipe line] >= 0} {
# Managed to actually read a line; stored in $line now
} elseif {[eof $pipe]} {
    # Pipeline was closed; get exit code, etc.
    if {[catch {close $pipe} msg opt]} {
        set exitinfo [dict get $opt -errorcode]
    } else {
        # Successful termination
        set exitinfo ""
    }
    # Stop the waiting in [vwait], below
    set ::donepipe $pipe
} else {
    puts ""
    # Partial read; things will be properly buffered up for now...
    }
}

vwait ::donepipe

我曾尝试在 TCL 代码中使用管道。但出于某种原因，我想将其转换为 Spawn-Expect 机制。但我正在努力解决它并在这样做时面临问题。谁能帮帮我？

Answer 1

Expect 使得使用模式非常不同并且它使用不同的方式与被包装的程序进行交互，这更像是交互使用的工作方式（它阻止了一整类与缓冲相关的错误，我怀疑这可能是你要打的）。正因为如此，转换东西是不是一个插入式的改变。这是一个简单的例子的基本使用模式：

package require Expect

# Note: different words become different arguments here
spawn Certify.exe args

expect "some sort of prompt string"
send "your input\r";   # \r is *CARRIAGE RETURN*
expect "something else"
send "something else\r"
expect eof

close

真正的复杂性来自于您可以设置超时、一次等待多个事物、等待模式以及文字字符串等。但是在普通 Tcl 中做同样的事情（即使忽略缓冲问题）需要做更多的工作.几乎所有其他语言的工作量几乎总是更多。

请注意，Expect 不做 GUI 自动化。只是命令行程序。 GUI 自动化是一个复杂得多的话题。

---

不可能对可能执行的操作进行通用描述，因为这在很大程度上取决于 Certify.exe 程序实际执行的操作，以及您如何以交互方式使用它。