Posted to tcl by pooryorick at Fri Aug 03 06:13:38 GMT 2018view raw

  1. set chan [open |[list [info nameofexecutable] - 2>@stderr] r+]
  2. puts $chan {
  3. while {[gets stdin var]} {
  4. puts stderr [list yyy $var]
  5. }
  6. }
  7. puts $chan xxx
  8. close $chan write
  9. set res [read $chan]
  10. puts $res
  11.