Hello

Been stuck on this for quite awhile and cannot find anything on this. Hope you guys can help, or send me in the right direction.

I have the code below. But i want to do different actions, probably call some subroutines, depending on the escape sequence. At the moment its a cntrl + A. But how would i have several different exit sequences and then carry out some task depending on what was pressed.

e.g. cntrl + T is pressed run "&t_stuff", cntrl + Q runs "&q_stuff"

while($exp){
     $exp->interact(\*STDIN,"\cA");
     print "you exited";
    }
[download]

Something like this....

while($exp){
     $exp->interact(\*STDIN,"\cA");
     if("escape sequence capture" =~ /\cT/){
     &t_stuff;
     }else{
     print "you exited";
     }    
}
[download]