Hallo!

Ich bin gerade dabei, ein Perl-Script (droute.pl von Ozymandns, [1]) nach
Windows (ActiveState) zu portieren.

Im Script kommt vor:

# set STDIN to nonblock
$flags='';
fcntl($infile, F_GETFL, $flags) or die "1\n";
$flags |= O_NONBLOCK;
fcntl($infile, F_SETFL, $flags) or die "2\n";

F_GETFL und O_NONBLOCK gibt es unter ActiveState jedoch nicht.

Soweit ich das sehe machen diese Anweisungen STDIN nonblocking, d.h. jede
Leseaktion von STDIN soll nicht blockierend sein.

Die einzige Stelle jedoch, wo von STDIN gelesen wird, ist innerhalb eines
Threads: