- or download this
$socket = socketpair($child_fh, $parent_fh, .....);
$child_fh -> autoflush();
$parent_fh -> autoflush();
$pid = fork();
....
- or download this
while(1)
{ my %INFO = ();
...
print $parent_fh ":MSG:${dumped}:DONE:\n";
sleep 10;
}
- or download this
state $collected;
$num = read($child_fh, $buf, 1e6);
...
$collected = "";
}
}