note
Eyck
You are surprisingly right,
<p>I somehow always regarded
<code>
$pid = open(KID_TO_WRITE, "|-");
</code>
trick as a way to talk with only one child, but if we rewrite it like this:
<code>
$fh = new FileHandle;
my $sleep_count = 0;
do {
$pid = open($fh, "|-");
unless (defined $pid) {
warn "cannot fork: $!";
die "bailing out" if $sleep_count++ > 6;
sleep 10;
}
} until defined $pid;
my (@some_data)=qw[a be ce];
if ($pid) {
print $fh @some_data;
close($fh) || warn "kid exited $?";
} else {
while (<STDIN>) {
print "GOT: $_\n"; # child's STDIN is parent's KID
}
exit; # don't forget this
};
</code>
then we get to hold whole array of different $fd's, each for talking with one child. This would be clean and reliable, exactly what I wanted. <p>Thanx.
493696
493708