Posted to tcl by mjanssen at Wed Apr 19 12:58:20 GMT 2017view pretty
set f [open "|[list plink bitbucket.org]" r+] fconfigure $f -blocking 0 proc puts_data {chan data} { append data [read $chan] puts $data fileevent $chan readable [list $chan $data] } fileevent $f readable [list puts_data $f ""]