From perlfaq8 http://faq.perl.org/perlfaq8.html的回答如何只读取一个键而不等待返回键? http://faq.perl.org/perlfaq8.html#How_do_I_read_just_o:
控制输入缓冲是一个非常依赖于系统的问题。在许多系统上,您可以只使用 stty 命令,如 perlfunc 中的 getc 所示,但如您所见,这已经让您遇到了可移植性障碍。
open(TTY, "+</dev/tty") or die "no tty: $!";
system "stty cbreak </dev/tty >/dev/tty 2>&1";
$key = getc(TTY); # perhaps this works
# OR ELSE
sysread(TTY, $key, 1); # probably this does
system "stty -cbreak </dev/tty >/dev/tty 2>&1";
CPAN 的 Term::ReadKey 模块提供了一个易于使用的界面,该界面应该比为每个密钥向 stty 敲击更有效。它甚至包括对 Windows 的有限支持。
use Term::ReadKey;
ReadMode('cbreak');
$key = ReadKey(0);
ReadMode('normal');
但是,使用该代码需要您有一个可用的 C 编译器,并且可以使用它来构建和安装 CPAN 模块。这是使用标准 POSIX 模块的解决方案,该模块已在您的系统上(假设您的系统支持 POSIX)。
use HotKey;
$key = readkey();
这里是 HotKey 模块,它隐藏了一些令人费解的调用来操作 POSIX termios 结构。
# HotKey.pm
package HotKey;
@ISA = qw(Exporter);
@EXPORT = qw(cbreak cooked readkey);
use strict;
use POSIX qw(:termios_h);
my ($term, $oterm, $echo, $noecho, $fd_stdin);
$fd_stdin = fileno(STDIN);
$term = POSIX::Termios->new();
$term->getattr($fd_stdin);
$oterm = $term->getlflag();
$echo = ECHO | ECHOK | ICANON;
$noecho = $oterm & ~$echo;
sub cbreak {
$term->setlflag($noecho); # ok, so i don't want echo either
$term->setcc(VTIME, 1);
$term->setattr($fd_stdin, TCSANOW);
}
sub cooked {
$term->setlflag($oterm);
$term->setcc(VTIME, 0);
$term->setattr($fd_stdin, TCSANOW);
}
sub readkey {
my $key = '';
cbreak();
sysread(STDIN, $key, 1);
cooked();
return $key;
}
END { cooked() }
1;