Okay i have the exact answer for you now. The following script will
give you decimal and hexidecimal values for each keypress. The hex
value can be used in normal regex and print statements using \x; the
example in the script quits using capital Q and (from my keyboard) PgUp
(this probably remains the same).
Some keys like PgUp and Home give three sets of values per press
(except on quit, when you get the wrong two); the one that worked for
me was the last one.
nb. make sure you exit this cleanly (capital Q or, if it works, PgUp)
because the last line is needed to reset the terminal properly.
#!/usr/bin/perl
# get ASCII values for keypresses
use warnings;
use Term::ReadKey;
ReadMode('cbreak');
print "Press a key.\n";
while (1) { #infinite loop
$C = ReadKey(0);
last if ($C eq "Q");
last unless defined $C;
last if ($C =~ /\x7e/); # eg. \x in regex
printf("$C\tDecimal: %d\tHex: %x\n", ord($C), ord($C));
}
ReadMode('normal'); # IMPORTANT!
Now you should be able to make any key do anything easily.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/
