Posted to tcl by evilotto at Thu Mar 29 18:22:26 GMT 2012view raw

  1. spawn /bin/bash
  2. interact {
  3. "\033\[C" {
  4. # right arrow
  5. exp_send "\033\[C"
  6. send_user "Right Arrow Pressed\n"
  7. }
  8. "\033\[D" {
  9. # left arrow
  10. exp_send "\033\[D"
  11. send_user "Left Arrow Pressed\n"
  12. }
  13. }