Search code examples
perlterminalarrow-keys

How can I identify and handle control characters and arrow keys in Perl?

I want to implement the command line features like in a linux terminal. I saw this in ftp command also.

  • If I press tab I need to list the commands.
  • If I press control characters I need to get that characters based on that I will do some action.
  • And if I give any commands it should execute.

For this I tried with Term::ReadKey that is in non-canonical mode. But here I am facing more problems like if I press any control character or arrow I got three characters. For the up arrow I got ASCII 27 91 65.

Can anyone help me out of this problem?

Solution

  • I got one Perl module to solve my requirement fully. that is Term::ShellUI.

    Thanks for all your inputs.

    And If you have any other solution is always welcome.