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

spawn /bin/bash
interact {
  "\033\[C"             {
    # right arrow
    exp_send "\033\[C"
    send_user "Right Arrow Pressed\n"
 } 
 "\033\[D" {
    # left arrow
    exp_send "\033\[D"
    send_user "Left Arrow Pressed\n"
 }
}