我正在做一些简单的项目，我想在控制台菜单中使用箭头进行导航。我需要向下和向上箭头允许我更改所选的菜单项（我用一些颜色绘制菜单）。我不想通过输入确认每个箭头（atm我用简单的印章需要输入，我甚至不知道如何允许箭头切割）。我需要某种自动检测箭头有什么好的解决方案吗？
答案 0 :(得分：0)
我需要知道如何创造条件。 if（readedKey ==？keyup？）{... } if（readedKey ==？keydown？）{...}
你可以#!/usr/bin/perl -w
use Curses;
initscr; refresh;
keypad(1); # enable arrow keys to return a single value
noecho;
print "Press Esc to end.\r\n";
while (($readedKey = getch()) ne "\e")
{
if ($readedKey eq KEY_UP) { print "You pressed the up arrow.\r\n"; }
elsif ($readedKey eq KEY_DOWN) { print "You pressed the down arrow.\r\n"; }
else
{
($printable = $readedKey) =~ s'[[:cntrl:]]'"^".chr(ord($&)^64)'e;
print "You pressed the key '$printable'.\r\n";
}
}
endwin;
;例如：
enctype='multipart/form-data'