while (! eof(RCMD)) { my @fds = $sel->can_read(5); #print NSY "FDS = @fds\n"; if ($#fds == 0) { my $in = <RCMD>; print $in; } else { my @fds = $wsel->can_read(0); #print NSY "FDS = @fds\n"; if ($#fds != 0) { #print NSY "Closing as stdout closed\n"; exit(0); } } }
In reply to Re: Re: Re: Re: inetd spawned perl problem
by vasu
in thread inetd spawned perl problem
by vasu
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |