Posted to tcl by mjanssen at Wed Oct 17 15:20:44 GMT 2007view raw

  1. package require Expect
  2. set prompt "????? "
  3.  
  4. spawn telnet *****
  5. log_user 0
  6. expect -ex login:
  7. send ******\r
  8. expect -ex word:
  9. send ******\r
  10. expect -ex $prompt
  11. send "ls -R\r"
  12. expect -re "(.*?)\n"
  13. puts "line with command ignored"
  14. set txt {}
  15. expect {
  16. -ex $prompt {puts done}
  17. -re "(.*?)\n" { append ::txt $expect_out(1,string)\n ; exp_continue}
  18. }
  19.  
  20. set f [open test.txt2 w]
  21. puts -nonewline $f $txt
  22. close $f
  23. exit