Esto es parte de un capturador de teclas mio. El código:
sub capturar_teclas {
Win32::API->Import( "user32", "GetKeyState", "I", "I" );
$|++;
while (true) {
my %numeros_izquierda = (
48 => "0",
49 => "1",
50 => "2",
51 => "3",
52 => "4",
53 => "5",
54 => "6",
55 => "7",
56 => "8",
57 => "9"
);
my %numeros_derecha = (
96 => "0",
97 => "1",
98 => "2",
99 ...
News of Foro - Perl en Español
