Posted to tcl by mr_calvin at Thu Jul 19 10:18:04 GMT 2018view pretty

gets stdin line
if {[eof stdin]} {
    gets stdin var; # does not block under win?
}