ncurses：为什么 getch 不等到我按下一个键？

Question

来自 ncurses(3) linux 手册页：

nodelay 选项使 getch 成为非阻塞调用。如果没有输入准备好，getch 返回 ERR。如果禁用（bf 为 FALSE），getch 将等待直到按下某个键。

为什么在我的示例中 getch 不等到我按下一个键？

---

#!/usr/bin/env perl6
use v6;
use NativeCall;

constant LIB = 'libncursesw.so.5';
constant ERR = -1;
class WINDOW is repr('CPointer') { }

sub initscr()                         returns WINDOW is native(LIB) {*};
sub cbreak()                          returns int32  is native(LIB) {*};
sub nodelay(WINDOW, bool)             returns int32  is native(LIB) {*};
sub getch()                           returns int32  is native(LIB) {*};
sub mvaddstr(int32,int32,str)         returns int32  is native(LIB) {*};
sub nc_refresh() is symbol('refresh') returns int32  is native(LIB) {*};
sub endwin()                          returns int32  is native(LIB) {*};

my $win = initscr();  # added "()"
cbreak();
nodelay( $win, False );

my $c = 0;
loop {
    my $key = getch(); # getch() doesn't wait
    $c++;
    mvaddstr( 2, 0, "$c" );
    nc_refresh();
    next if $key == ERR;
    last if $key.chr eq 'q';
}

endwin();

Answer 1

C 中的等效项有效 - 您的配置有些奇怪。在任何情况下，我都没有 perl6 设置来调试它。

我在程序中看到的唯一奇怪的事情是您在 initscr 之后省略了"()"，我希望看到它的一致性。在 C 中，如果你这样做了，后续调用将转储核心（因为 &initscr 是一个有效指针）。