¿Cómo leer en teclas especiales con Win32 :: Console?
Cuando presiono elUp
-key, este script (Término :: TermKey) salidasYou pressed: <Up>
.
<code>#!/usr/bin/env perl use warnings; use 5.012; use Term::TermKey; my $tk = Term::TermKey->new( \*STDIN ); say "Press any key"; $tk->waitkey( my $key ); say "You pressed: <" . $tk->format_key( $key, 0 ) . ">"; </code>
¿Cómo podría alcanzar el mismo resultado conWin32 :: Consola?
Intenté esto, pero funcionó solo en teclas "normales" comol
,k
, ... pero no con llaves comoUp
, Delete
...
<code>use Win32::Console; my $in = Win32::Console->new(STD_INPUT_HANDLE); $in->Mode(ENABLE_PROCESSED_INPUT); my $result = $in->InputChar(1); say "<$result>"; </code>
¿Cómo podría hacer llaves de trabajo comoUp
, Delete
, ... tambien conWin32::Console
?