[ 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

设置 $fh 为非阻塞模式

chan configure $fh -blocking 0

注册事件触发 Callback 函数

chan event $fh readable [list Callback $fh]

函数输入值为 $fh