Tcl子解释器stdout重定向到文件失败及不关闭stdout方案咨询

Tcl 子解释器默认不继承主解释器的标准通道别名自动绑定规则：主解释器关闭 stdout 后，下一个打开的可写通道会被 Tcl 自动注册为新的 stdout 默认通道，所以无通道参数的 puts 可以正常输出；但子解释器没有这个自动注册逻辑，关闭 stdout 后对应的通道别名会直接销毁，新打开的文件通道不会自动绑定到 stdout 别名，调用 puts 时找不到对应通道就会抛出异常。

方案1：通道栈重定向（最推荐，完全不修改原有 stdout 状态） #

使用 Tcl 标准的 chan push 接口给 stdout 叠加输出目标，上层代码完全不需要修改，对第三方工具无侵入：

interp create foo
foo eval {
    set file [open log.txt w]
    # 将文件通道压入stdout的输出栈，所有stdout输出会优先写入该文件
    chan push stdout $file
    puts "hello" # 输出直接写入log.txt，原有stdout不会被关闭也不会产生输出
}
# 后续需要恢复原始stdout输出时，弹出栈内的文件通道即可
foo eval {chan pop stdout}

方案2：手动绑定stdout别名（适用于必须关闭原有stdout的场景） #

如果业务要求必须关闭原始stdout，关闭后手动把新打开的文件通道重命名为stdout即可补全别名映射：

interp create foo
foo eval {
    close stdout
    set file [open log.txt w]
    # 手动将文件通道绑定到stdout别名，模拟主解释器的自动绑定行为
    chan rename $file stdout
    puts "hello" # 正常输出到log.txt
}

方案3：共享主解释器通道配置（适用于主/子解释器输出需要同源的场景） #

非安全模式下创建的子解释器默认会共享主解释器的标准通道配置，直接在主解释器重定向stdout即可同时生效：

# 主解释器先完成stdout重定向
set main_file [open log.txt w]
chan push stdout $main_file
# 新创建的子解释器会自动继承主解释器的stdout配置
interp create foo
foo eval {puts "hello"} # 输出直接写入log.txt

• 不要在子解释器中直接关闭标准通道后不做别名绑定，Tcl 不会自动补全该映射关系
• chan push/chan pop 是 Tcl 8.5 及以上版本的内置接口，无额外依赖，对上层调用完全透明，不会修改第三方工具的原有 puts 调用逻辑

内容的提问来源于stack exchange，提问作者almostacoder