如何抑制 TCL 线程的错误/输出？

Question

我创建了一个线程：

set t1 [thread::create]
thread::send $t1 {
    proc myProc {command args} {
        exec {*}[auto_execok $command] {*}$args >& /dev/null
    }
}

然后尝试发送异步命令：

thread::send -async $t1 [list myProc <command args>]

但是命令的错误/输出显示在输出中。 如何隐藏发送到异步线程的命令的错误/输出？

Answer 1

最简单的方法是捕获错误。

thread::send $t1 {
    proc myProc {command args} {
        catch {
            exec {*}[auto_execok $command] {*}$args >& /dev/null
        }
    }
}

请注意，这会使任何问题显着更难以调试！如果您能够识别预期的错误并尝试捕获它们，那就更好了，因此意外错误仍然是您看到并必须处理的事情。

thread::send $t1 {
    proc myProc {command args} {
        try {
            exec {*}[auto_execok $command] {*}$args >& /dev/null
        } trap CHILDSTATUS {} {
            # Ignore a non-zero exit?
        }
    }
}

对于这种特定情况（从 Tcl 的角度来看，这是非常受 I/O 限制的），您最好将 & 添加到 exec 调用的末尾，而不是在单独的线程中运行。在不确切知道自己在做什么的情况下，无法确定，但值得考虑。