Re: Arrow keys with Curses.pm

[caelifer]

You should call keypad(1) so you can compare returned key code to exported constants.

use strict;
use Curses;

my $screen = Curses->new();

# Enable keypad functionality
keypad(1);

while (my $key = getch()) {
        do { printw("KEY_LEFT\n");  refresh(); next } if $key eq KEY_L
+EFT;
        do { printw("KEY_RIGHT\n"); refresh(); next } if $key eq KEY_R
+IGHT;
        last;
}

exit 0;

BR

[Pic]

D'oh. That's it of course.

Now that you've said it I can even see where it's mentioned in the C language tutorial.

Thanks a lot for your help.