Hi there
has anybody tried to check the readability of a pipe via the select
command running ActivePerl under Windows NT?
The following code is running fine in Linux, but select seems not to
do what it should in Win NT.
I ran that program in a pipeline with an executable out.exe that
writes (and flushes) to stdout:
out.exe | in.pl
Regards
Torsten
<Program name="in.pl">
$rin = $win = $ein = '';
vec($rin,fileno(STDIN),1) = 1;
vec($win,fileno(STDOUT),1) = 1;
$ein = $rin | $win;
while ( 1 ) {
$nfound = select($rout=$rin, undef, undef, 0.2);
if ( $nfound ) {
$c = sysread STDIN, $l, 1000;
}
}
</Program>
--
------------------------------------------------------------------------
Dr.-Ing. Torsten Finke
Ingenieurgemeinschaft IgH
Heinz-Baecker-Str. 34
D-45356 Essen
Tel.: +49 201 / 61 99 31
Fax.: +49 201 / 61 98 36
E-mail: [EMAIL PROTECTED]
------------------------------------------------------------------------
_______________________________________________
Perl-Win32-Users mailing list
[EMAIL PROTECTED]
To unsubscribe: http://listserv.ActiveState.com/mailman/mysubs
