我正在使用Perl 6模块Term::termios。
#!/usr/bin/env perl6
use v6;
use Term::termios;
my $saved_termios := Term::termios.new(fd => 1).getattr;
my $termios := Term::termios.new(fd => 1).getattr;
$termios.makeraw;
$termios.setattr(:DRAIN);
loop {
my $c = $*IN.getc;
print "got: " ~ $c.ord ~ "\r\n";
last if $c eq 'q';
}
$saved_termios.setattr(:DRAIN);
当我运行此脚本并按下键上箭头,下箭头,右箭头,左箭头和q时,这是输出:
#after arrow-up:
got: 27
got: 91
#after arrow-down:
got: 65
got: 27
got: 91
#after arrow-right:
got: 66
got: 27
got: 91
#after arrow-left:
got: 67
got: 27
got: 91
#after q:
got: 68
#after another q:
got: 113
但是我本来希望:
#after arrow-up:
got: 27
got: 91
got: 65
#after arrow-down:
got: 27
got: 91
got: 66
#after arrow-right:
got: 27
got: 91
got: 67
#after arrow-left:
got: 27
got: 91
got: 68
#after q:
got: 113
我必须如何修改脚本才能获得所需的输出?
用my $c = $*IN.getc;
替换my $c = $*IN.read(1);
,并更改其余代码以处理缓冲区而不是字符串。