#!/usr/bin/perl
# will register multicharacter keys (eg F3, End, PgUp, <-) and allow y
+ou
# 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") {r
+eturn "$_";}
                }   
                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";
}

[download]

In reply to PgUp Home by halfcountplus

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.