home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / tcl / expect / expect-4.7 / example / timed-read < prev    next >
Encoding:
Text File  |  1993-04-12  |  236 b   |  7 lines
  1. #!../expect -f
  2. # read a complete line from stdin (minus terminating newline)
  3. # aborting after the number of seconds (given as an argument)
  4. # - Don Libes
  5. set timeout [lindex $argv 1]
  6. expect -re "(.*)\n" {send_user $expect_out(1,string)}
  7.