如何在Tcl中同时将命令序列输出重定向到stdout和文件？

核心思路 #

通过自定义通道（Tcl 8.6+ 原生支持）实现“tee”功能，同时将输出定向到屏幕（原stdout）和文件；配合chan redirect临时替换当前stdout，无需修改现有proc的输出逻辑，执行完成后恢复原通道即可。

完整实现代码 #

# 示例业务proc，直接输出到stdout
proc foo {} {
    puts "bar from foo"
    return "bar"
}

# 1. 保存原始stdout通道，用于后续恢复
set original_stdout [chan stdout]
# 2. 打开目标日志文件（w模式覆盖，a模式追加）
set log_file [open myfile.log w]

# 3. 创建自定义tee通道，同时写入原stdout和日志文件
set tee_channel [chan create write {
    variable original_stdout
    variable log_file

    # 实现通道的write方法：接收输出数据，同时写入两个通道
    method write {data} {
        # -nonewline 避免额外添加换行，保持原始输出格式
        chan puts $original_stdout $data none
        chan puts $log_file $data none
        # 返回写入的字节数，符合Tcl通道协议要求
        return [string length $data]
    }

    # 关闭通道时自动关闭日志文件
    method close {} {
        chan close $log_file
        return
    }
}]

# 4. 临时重定向当前stdout到tee通道
chan redirect stdout $tee_channel

# ------------------------------
# 执行需要输出的业务逻辑，所有stdout输出会同时到屏幕和文件
puts "I call foo"
foo
# ------------------------------

# 5. 恢复原始stdout通道
chan redirect stdout $original_stdout
# 6. 关闭自定义tee通道
chan close $tee_channel

关键细节说明 #

• 自定义通道：通过chan create创建符合Tcl通道协议的自定义通道，write方法是核心，负责将数据分发到两个目标通道。
• 临时重定向：chan redirect stdout $tee_channel会将所有后续puts stdout（包括proc内部的隐式stdout输出）定向到自定义通道，无需修改现有代码。
• 格式保留：使用chan puts ... none避免自动添加换行，确保原始输出格式完全一致。
• 资源清理：自定义通道的close方法自动关闭日志文件，恢复原stdout后关闭自定义通道，避免资源泄漏。

旧版本Tcl（8.5及以下）兼容方案 #

如果使用Tcl 8.5，可通过替换stdout变量实现类似效果：

proc foo {} {
    puts "bar from foo"
    return "bar"
}

set original_stdout $stdout
set log_file [open myfile.log w]

# 定义tee写入逻辑
proc tee_write {data} {
    global original_stdout log_file
    puts -nonewline $original_stdout $data
    puts -nonewline $log_file $data
    return [string length $data]
}

# 创建命令驱动的通道
set tee_channel [chan create write {tee_write}]

# 替换stdout变量
set stdout $tee_channel

# 执行业务逻辑
puts "I call foo"
foo

# 恢复并清理
set stdout $original_stdout
chan close $tee_channel
chan close $log_file

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