Direktori : /proc/thread-self/root/bin/ |
Current File : //proc/thread-self/root/bin/timed-read |
#!/usr/bin/sh # -*- tcl -*- # The next line is executed by /bin/sh, but not tcl \ exec tclsh "$0" ${1+"$@"} package require Expect # read a complete line from stdin # aborting after the number of seconds (given as an argument) # - Don Libes set timeout $argv expect -re \n {send_user $expect_out(buffer)}