perl - 为什么我的 Perl 诅咒窗口不起作用？

Question

这可能是我对 Curses 的理解比 Perl 更多的问题，但请帮助我。我正在使用 Curses.pm，它运行良好，除非我尝试创建一个 curses“窗口”。示例代码:

use Curses;
initscr;
$w=newwin(1,1,40,40);
$w->addstr(20,20,"Hello");
$w->refresh;
refresh;
endwin;

什么都不输出。不使用窗口可以正常工作:

use Curses;
initscr; 
$w=newwin(1,1,40,40); 
addstr(20,20,"Hello"); 
refresh; 
endwin; 

Answer 1

你需要把你的论点放在正确的地方，记住什么是什么并不容易。在尝试了所有错误的排列之后，我总是要查找它。我只是查看 C 接口(interface)的手册页，然后将其更改为 Perl 语法。
newwin函数，记录在 curs_window手册页，需要:

newwin( height, width, starty, startx )

您设置了一个一行高一列宽的窗口，从第 40 行第 40 列开始。但是，然后您告诉 addstr将文本放在该窗口的第 20 行第 20 列。那是在您设置的 1x1 框架之外，所以您什么都看不到。

试试这个，看看它是否适合你。如果可行，请尝试调整窗口值以获得所需的帧。

use Curses;
initscr;

$w = newwin(
    1,       # height (y)
    COLS(),  # width  (x)
    0,       # start y
    1        # start x
    );

$w->addstr( 
    0,       # relative y to window
    0,       # relative x to window
    "Hello" 
    );

$w->refresh();

sleep 10;
endwin;