Posted to tcl by kostix at Sat Aug 16 13:47:18 GMT 2008view raw

  1. C:\tmp>type dchan.tcl
  2. set filename out.log
  3. close stdout
  4. open $filename w+
  5. close stderr
  6. open $filename w+
  7.  
  8. puts "from STDIN"
  9. puts stderr "from STDERR"
  10.  
  11.  
  12. C:\tmp>tclsh85 dchan.tcl
  13.  
  14. C:\tmp>type out.log
  15. from STDIN
  16.  
  17.  
  18. C:\tmp>