#!/usr/bin/perl
# will register multicharacter keys (eg F3, End, PgUp, <-) and allow you
# to name them, then return those names when pressed again.

# ReadKey in cbreak returns key values like this:
#byte:  1       2       3       4       5
#1char          X       X       X       X       normal
#3char  \e      0               X       X       F1-4, home, end
#3char  \e      [               X       X       arrows
#4char  \e      [               ~       X       PgUp, PgDn
#5char  \e      [                       ~       F5-12
#       eg. a is "a", PgUp is "\e[5~"
#       \e is ESC

use warnings;
use Term::ReadKey;

sub idkey {
        my @key = (); $C="@_";
        if ($C =~ /^\e/) {
                $C = ReadKey();
                if ($C =~ /^\[/) {
                        until ($C eq "~" || $C =~ /[A-D]/) {
                                $C = ReadKey(); if ($C ne "~") {push @key,$C;}
                        }   
                } else {push @key,$C;$C = ReadKey(); push @key,$C;}
                my $x = "@key";
                foreach (%mcks) {
                        if (exists($mcks{$_}) && $mcks{$_} eq "$x") {return "$_";}
                }   
                ReadMode('normal');
                print "name? "; $nm = <>; chomp $nm;
                $mcks{$nm} = "$x";
                return @key;
        } else {return "@_";}
}    

%mcks=();    

while (1) {
        ReadMode('cbreak');
        print "Press a key. (ENTER quits)\n";
        $C = ReadKey();
        if ($C eq "\n") {ReadMode('normal');exit;}
        @key = idkey("$C");
        print "key:@key\n";
}