如何使用Curses从调整大小的窗口获取窗口大小？

Question

我试过这种方式，但它不起作用 - 从getmaxyx返回的值始终保持不变。

#!/usr/bin/env perl 
use warnings; 
use 5.012; 
use Curses; 

my $size_changed = 0; 
$SIG{'WINCH'} = sub { $size_changed= 1; }; 

initscr(); 

my ($row, $col); 
getmaxyx($row, $col); 
addstr("begin: $row - $col\n"); 
refresh(); 

for (0 .. 19) { 
    addstr("-------------\n"); 
    if ($size_changed) { 
     getmaxyx($row, $col); 
     addstr("new: $row - $col\n"); 
     $size_changed = 0; 
    } 
    refresh(); 
    sleep 1; 

} 

sleep 3; 
endwin(); 

Answer 1

#!/usr/bin/env perl 
use warnings; 
use 5.012; 
use Curses; 

my $size_changed = 0; 
$SIG{'WINCH'} = sub { $size_changed= 1; }; 

initscr(); 

my ($row, $col); 
getmaxyx($row, $col); 
addstr("begin: $row - $col\n"); 
refresh(); 

for (0 .. 19) { 
    sleep 2; 
    if ($size_changed) { 
     endwin(); 
     refresh(); 
     getmaxyx($row, $col); 
     addstr("new: $row - $col\n"); 
     $size_changed = 0; 
    } 
} 

sleep 3; 
endwin(); 

^^^这对我有效。根据Writing Programs with NCURSES/Using NCURSES under XTERM你应该做的“endwin（）后面刷新（）”

Answer 2

了解几乎一无所知Curses，在第一猜我会说你的问题是，你打破了$SIG{WINCH}，因为libcurses会想使用，当窗口可能已经改变尺寸检测。