在Windows上使用IO::Select on STDIN

Nothing is ready 大约每两秒钟一次,并将输入的任何内容输出到控制台。

但在窗户上, can_read 立即返回零项。

use IO::Select;

my $sel = IO::Select->new();
$sel->add(\*STDIN);

while ( 1 ) {

    my @ready = $sel->can_read(2);

    if ( scalar @ready == 0 ) {
        print "Nothing is ready\n";
    }

    foreach my $fh ( @ready ) {

        if ( $fh eq \*STDIN ) {
            my $in = <STDIN>;
            print "got $in from stdin\n";
        }
    }
}

select IO::Select 在Windows系统的STDIN上?