[ Tcl ] 非阻塞模式启动外部程序，并接收返回值的方法

https://www.cnblogs.com/yeungchie/

Callback 函数

proc Callback { handle } {
variable line
if { [catch {gets $handle line}] || [chan eof $handle]} {
# 这里 gets 当获取失败，或者遇到 End Of File 时，关闭管道
catch {close $handle}
} else {
puts "$line"
flush stdout
}
}

启动外部程序

set fh [open "| python SyncViewConfigure.py" r]

设置 $fh 为非阻塞模式

chan configure $fh -blocking 0

注册事件触发 Callback 函数

chan event $fh readable [list Callback $fh]