@流吾思 在QQ群里如此提问。
实现的关键点是:
proc onkeyup {chan args} { set data [read $chan 512] puts $data if {$data eq "q"} { exit } } exec stty raw -echo <@ stdin fconfigure stdin -blocking 0 fileevent stdin readable [list onkeyup stdin] puts "Press 'q' to exit!" vwait forever