Kiedy naciskamUp-key, ten skrypt (Termin :: TermKey) wyjściaYou 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>

Jak mogę osiągnąć ten sam rezultatWin32 :: Console?
Próbowałem tego, ale działało tylko na „normalnych” klawiszach, takich jakl,k, ... ale nie z kluczami takimi jakUp, 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>

Jak mogę zrobić klucze do pracyUp, Delete, ... też zWin32::Console?