Beefy Boxes and Bandwidth Generously Provided by pair Networks
P is for Practical

Re: Fork/Spawn

by turnstep (Parson)
on Mar 27, 2000 at 22:18 UTC ( #6251=note: print w/replies, xml ) Need Help??

in reply to Fork/Spawn

I think I know what you are asking, but I'm not sure.

You want to, for an example, write a spell check program, in which you want each letter to be a child process:

##Extremely simple code for $x ('A'..'Z') { if ($pid=fork) { ## This child checks the letter $x exit; } }

The problem is that you want to "simultaneously execute the subroutine" AND you want the children to return their results in the exact order they were called. There is no simple way to have both: since each child is doing a different task, you have no way of knowing how soon each will finish. You can have the parent wait for the a child to finish before starting the next child, but that's the same as a non-forked loop.

If the return order does not matter, you can just gather the children's results as they finish. (How exactly you do this depends on a few things: appending to a temporary file may be the easiest way.)

If the order DOES matter, you must have a way for the parent to identify the children. In the example above, the child could output it's "letter" as the first character of it's result. Then it is up to the parent to sort out the results and display them in a pretty manner.

Here's some quick code illustrating some of the above:

$tmpfile = "/tmp/results.$^T$$"; for $x ('A'..'Z') { if (fork) { ## We don't need to know PID in this example $results = &SpellCheck($x); if (open (TMPFILE, ">> $tmpfile")) { print TMPFILE "$x|$results\n"; close(TMPFILE); } exit; ## Done with this child } } ## Wait for all the children to finish, then... if (open (TMPFILE, $tmpfile)) { @results = <TMPFILE>; close(RESULTS); sort(@results); ## Works well for this example!! }

In the example above, @results will contain the results from all 26 children, sorted in alphabetic order.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://6251]
[Discipulus]: choroba the Tk client print out an educated error message that it cant connect..
[Discipulus]: Can't connect to 80Invalid argument at ..perl5.26.64bit/ perl/vendor/lib/ LWP/Protocol/http. pm line 46, <__ANONIO__> line 34500.
[Corion]: Discipulus: That's weird, but maybe one of the machines is still wonky. I haven't looked :-/

How do I use this? | Other CB clients
Other Users?
Others avoiding work at the Monastery: (9)
As of 2017-10-24 10:51 GMT
Find Nodes?
    Voting Booth?
    My fridge is mostly full of:

    Results (288 votes). Check out past polls.