Posted to tcl by mistachkin at Sat Nov 10 21:27:21 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 script [file join [file dirname [info script]] test.tcl]
  5.  
  6. set result ""
  7. set error ""
  8. set code [catch {set result [exec -- [info nameof] $script >@$f_out 2>@$f_err]} error]
  9.  
  10. seek $f_out 0
  11. seek $f_err 0
  12.  
  13. puts stdout "code = $code"
  14. puts stdout "error = $error"
  15. puts stdout "result = $result"
  16. puts stdout "stdout = [read $f_out]"
  17. puts stdout "stderr = [read $f_err]"
  18.  
  19. close $f_err
  20. close $f_out
  21.