Posted to tcl by mistachkin at Sat Nov 10 21:21:16 GMT 2007view raw

  1. set f_out [open [file join $env(TEMP) "file.out"] {RDWR CREAT TRUNC}]
  2. set f_err [open [file join $env(TEMP) "file.err"] {RDWR CREAT TRUNC}]
  3.  
  4. set result ""
  5. set error ""
  6. set code [catch {set result [exec -- [info nameof] test.tcl 1>$f_out 2>$f_err]} error]
  7.  
  8. seek $f_out 0
  9. seek $f_err 0
  10.  
  11. puts stdout "code = $code"
  12. puts stdout "error = $error"
  13. puts stdout "result = $result"
  14. puts stdout "stdout = [read $f_out]"
  15. puts stdout "stderr = [read $f_err]"
  16.  
  17. close $f_out
  18. close $f_err
  19.