2

我以这种方式尝试过,但它不起作用 - 返回的值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();
4

2 回答 2

2
#!/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 编写程序/在​​ XTERM 下使用 NCURSES,您应该执行“endwin() 后跟 refresh()”

于 2017-11-01T10:34:33.317 回答
1

几乎一无所知Curses,起初我会说你的问题是你坏了$SIG{WINCH},因为libcurses会想用它来检测窗口何时可能改变大小。

于 2012-03-19T15:42:46.053 回答