Posted to tcl by Bradipo at Mon Nov 14 17:38:56 GMT 2016view pretty

$ expect
expect1.1> spawn ed /tmp/output.txt
spawn ed /tmp/output.txt
6187
expect1.2> expect "\r\n"
/tmp/output.txt: No such file or directory
expect1.3> send "a\r"
expect1.4> expect "\r\n"
a
expect1.5> send "\"foo\""
expect1.6> send "\r"
expect1.7> expect "\r\n"
"foo"
expect1.8> send ".\r"
expect1.9> expect "\r\n"
.
expect1.10> send "w\r"
expect1.11> expect "\r\n"
w
6
expect1.12> send "q\r"
expect1.13> expect EOF
q
expect1.14> exit
$ cat /tmp/output.txt 
"foo"