如何在tclsh中使用>符号实现命令输出重定向？

Tcl语法里的>是比较运算符，并不支持像Shell那样直接在命令后用>做输出重定向，以下是几种可行的实现方式：

• 直接指定输出文件（针对puts命令）
  Tcl的puts命令原生支持指定输出的文件句柄，无需依赖Shell的重定向语法：

  # 以覆盖模式打开文件（不存在则创建，存在则清空）
  set log_fh [open "test.log" w]
  puts $log_fh "123"
  # 操作完成后关闭文件句柄
  close $log_fh
  

  若需要追加内容，将打开模式改为a即可：

  set log_fh [open "test.log" a]
  puts $log_fh "追加的内容"
  close $log_fh
  

• 临时重定向标准输出stdout
  如果要让后续所有输出（包括自定义proc内部的puts）都写入文件，可以临时替换标准输出句柄：

  # 保存原始的stdout句柄
  set original_stdout [dup stdout]
  # 将stdout重定向到目标文件
  close stdout
  open "test.log" w stdout
  
  # 此时所有输出都会写入test.log
  puts "123"
  procTest {a b} ;# 假设procTest内部包含puts输出逻辑
  
  # 恢复原始的stdout
  close stdout
  dup $original_stdout stdout
  close $original_stdout
  

• 处理set命令的输出需求
  Tcl的set命令仅负责设置变量值，不会自动输出结果。若要将变量值写入文件，需结合puts：

  set a 123
  # 直接将变量值写入文件
  puts [open "test.log" w] $a
  # 或者显式管理文件句柄
  set log_fh [open "test.log" w]
  puts $log_fh $a
  close $log_fh
  

• 自定义重定向命令（模拟Shell风格）
  如果习惯Shell的>写法，可以封装一个proc来简化操作：

  proc redirect {command filename mode} {
      # 保存原始stdout
      set original_stdout [dup stdout]
      # 重定向stdout到目标文件
      close stdout
      open $filename $mode stdout
      # 执行目标命令
      uplevel $command
      # 恢复原始stdout
      close stdout
      dup $original_stdout stdout
      close $original_stdout
  }
  
  # 使用示例
  redirect {puts "123"} "test.log" w
  redirect {procTest {a b}} "test.log" a
  redirect {puts [set a 123]} "test.log" w
  

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