flodhest network

Actions

Pastebin - View source

#!/usr/bin/perl -w
# sascii - Show ASCII values for keypresses

use Term::ReadKey;
ReadMode('raw');
print "Press keys to see their ASCII values.  Use Ctrl-C to quit.\n";

$SIG{'ALRM'} = sub {ReadMode('normal'); exit};
alarm 5;

while (1) {
    $char = ReadKey(0);
    last unless defined $char;
    printf(" Decimal: %d\tHex: %x\n", ord($char), ord($char));
}

ReadMode('normal');