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

1

についてほとんど何も知らないので、最初の推測では、ウィンドウのサイズが変更された可能性があることを検出するためにそれを使用する必要があるため、Cursesあなたの問題は を壊したことだと思います。$SIG{WINCH}libcurses

于 2012-03-19T15:42:46.053 に答える