Tcl语言的输出重定向

dragonII

最近在用Tcl写一个维护系统的东东，需要将一些运行信息保存到日志文件中

set fd [open "log" {WRONLY CRREAT APPEND}]

1. exec Proc1 param1 param2 >@ stdout   # 标准输出显示
   
2. exec Proc1 param1 param2 >@ $fd        # 输出能保存到log文件中

复制代码

但是，我目前的需求是既在标准输出显示，同时，还要将其保存到log文件中，请问诸位如何实现

shell中有tee，tcl中没找到类似的东西啊

dragonII

自己顶一个

wn0112

1. set log [ open c:/log.txt {RDWR CREAT TRUNC} ]
   
2. catch { exec Proc1 param1 param2 } result
   
3. puts $result
   
4. puts $log
   
5. flush $log
   
6. close $log

复制代码