Как получить с помощью 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();

^^^ это сработало для меня. в соответствии с Написание программ с помощью NCURSES / Использование NCURSES под XTERM вы должны выполнить «endwin (), а затем refresh ()»

Answer 2

Почти ничего не зная о Curses, на первый взгляд, я бы сказал, что ваша проблема в том, что вы сломали $SIG{WINCH}, потому что libcurses захочет использовать это, чтобы определить, когда окно может изменить размер.