Posted to tcl by schelte at Wed Dec 15 23:02:47 GMT 2010view raw

  1. #!/usr/bin/tclsh
  2. package require Expect
  3.  
  4. spawn more /etc/inputrc
  5. expect {
  6. -- {--More--} {
  7. send " "
  8. exp_continue
  9. }
  10. {>}
  11. }
  12.