Posted to tcl by mjanssen at Wed Apr 19 12:58:20 GMT 2017view raw
- 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 ""]