为什么在 TCL/Expect 的过程中使用 log by tracking 不起作用

Question

以下代码未按预期输出到 sample.log 文件。有什么原因吗？ 可能与范围有关，但似乎无法弄清楚。

proc log_by_tracing { array element op } {
    uplevel {
        global logfile
        set file $logfile($expect_out(spawn_id))
        puts -nonewline $file $expect_out(buffer)
    }
}

proc start_telnet {} {
 spawn telnet 10.30.16.112
 set logfile($spawn_id) [open sample.log w]
 trace variable expect_out(buffer) w log_by_tracing
 expect  "login"
 send "anonymous\r"


}

start_telnet

帮助

Answer 1

很可能上层区块无法替代您的想法。它的代码也很尴尬。您可以将变量传递给您知道的跟踪函数，并避免全局和上层。

proc log {chan varname elt op} {
    upvar #0 $varname v
    puts -nonewline $chan "< $v(buffer)"
}
proc start_telnet {} {
    set log [open sample.log w]
    trace variable expect_out(buffer) w [list log $log]
    ...
}