tcl - 如何检查 spawn_id 是否还活着？ (TCL)

Question

我生成了一个到主机的 telnet 进程。我发送命令，期待一些事情作为返回。这种情况会持续一段时间。但介于这两者之间交互时，与主机的连接神秘地丢失了，我的脚本在尝试向生成的“发送”某些内容时死亡(现已死亡)远程登录进程。我想编写一个获取生成 ID 和命令的过程作为参数发送。我想检查spawn id是否存在(即程序和主机之间存在连接)在我之前“发送”命令。不然我想退出。像这样的事情:

proc Send {cmd sid} {
if { $sid is not dead yet } { ;## don't know how to do this
part
send -i $sid "$cmd\r"
} else {
puts "channel id: $sid does not exist anymore. Exiting"
exit
}
}

Answer 1

您可以捕获发送到死进程时send引发的错误，而不是检查生成的进程是否仍然存在:

proc Send {cmd sid} {
    if {[catch {send -i $sid "$cmd\r"} err]} {
        puts "error sending to $sid: $err"
        exit
    }
}