-キーを押すとUp
、このスクリプト ( Term::TermKey ) が出力しますYou pressed: <Up>
。
#!/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 ) . ">";
Win32::Consoleで同じ結果を得るにはどうすればよいですか?
私はこれを試しましたが、、、...のような「通常の」キーでのみ機能し、、、l
...のようなキーでk
は機能しませんでしたUp
Delete
use Win32::Console;
my $in = Win32::Console->new(STD_INPUT_HANDLE);
$in->Mode(ENABLE_PROCESSED_INPUT);
my $result = $in->InputChar(1);
say "<$result>";
Up
、、Delete
...のような作業キーを で作成するにはどうすればよいWin32::Console
ですか?