Fork and exec

perlmonkdr has asked for the wisdom of the Perl Monks concerning the following question:

Hi guys!!!

I working with fork and exec, basicaly i would like to execute 10 times (at the same moment) a program but i don't want wait that those programs finish, so, i think in exec, but when i use fork, it still wait the status of the program.

Exists a way or method to do this?

Let me give you an example:

my a=0;
while (++$a <= 10) {
    unless (fork()) {
        # Here I want execute and continue without
        # wait the status
        exec( 'perl sleep.pl');
        #This exit isn't necessary, isn't it?
        exit(0);
    }
}
[download]

Any comment are welcome, thk U so much.

Comment on Fork and exec Download Code

Replies are listed 'Best First'.
Re: Fork and exec by mr_mischief (Monsignor) on Apr 30, 2008 at 06:16 UTC
You can set `$SIG{CHLD}` to `'IGNORE'` if you don't want to wait for status of your children. There are other ways, too, but that's the easy way. See perlipc and waitpid for more info. The exit is there to make sure your child exits cleanly in case the `exec()` fails. You don't want each child going back and forking ten times because they can't exec the proper process for whatever reason, right? If that exec fails and you don't exit, you've unleashed a forkbomb on your machine. Your sysadmin might not be happy. See exec for more info. BTW, your declaration of `$a` is missing a sigil, a for loop is more idiomatic when using a fixed count, and you're missing two important lines at the top: `use strict; use warnings; $SIG{CHLD} = 'IGNORE'; # my $a; # no longer necessary -- was a loop var where the loop # number range idiom will suffice for ( 1..10 ) { unless ( fork() ) { # Here I want execute and continue without # wait the status exec( 'echo', 'foo!' ); exit( 0 ); } }` [download]	[reply] [d/l] [select]
Re^2: Fork and exec by MidLifeXis (Monsignor) on Apr 30, 2008 at 17:16 UTC
Your sysadmin might not be happy. That is putting it mildly :). I remember calling a professor as his machine started to alarm due to a self-inflicted (read: prof did it to self) fork bomb. Getting onto the machine and rebooting without losing data was, umm, fun. Thankfully, the prof happened to be one of the reasonable ones, and it was "his" machine, so other than the two of us, there was not a lot of impact :) --MidLifeXis	[reply]
Re^2: Fork and exec by perlmonkdr (Beadle) on Apr 30, 2008 at 23:10 UTC
Thk 4 your reply I'm afraid not work, if i do something like this `exec "perl -e sleep(20)";` the parent process wait for finish all childs, one little thing, i tested it on win, remember that in this OS Perl emulate fork, it works fine 4 U on *nix? Thk a lot	[reply] [d/l]
Re: Fork and exec by Anonymous Monk on Apr 30, 2008 at 06:19 UTC
fork and exec without waiting: Fork() and exec()	[reply]
Re^2: Fork and exec by perlmonkdr (Beadle) on May 01, 2008 at 08:25 UTC
Thk, i was checked but this's not that i have in main Anyway i take this like a posible solution. thk	[reply]
Re: Fork and exec by pc88mxer (Vicar) on Apr 30, 2008 at 14:54 UTC
but when i use fork, it still wait the status of the program. I gather that your parent is hanging someplace where you don't want it to hang. Are you calling `wait` or `waitpid` in the parent? If you don't need the exit status of a child process, you never need to call `wait` or `waitpid` or handle `SIGCHLD`. A 'zombie' process will be created when the child exits, but this is simply the child's entry in the system's process table and doesn't consume any appreciable memory. Zombie entries will be released when the parent exits. If you want to check if a child has exited without hanging, then call `waitpid` with the `WNOHANG` parameter - see `perldoc -f waitpid` for an example.	[reply] [d/l] [select]
Re^2: Fork and exec by perlmonkdr (Beadle) on May 01, 2008 at 08:28 UTC
Ok, but i'm not using wait, waitpid or signal in this example and the parent process wait to all childs finish, please not that i use this in windows, perhaps this the problem, isn't it? Regards	[reply]
Re^3: Fork and exec by rowdog (Curate) on May 01, 2008 at 22:59 UTC
Windows has no fork but it can be emulated. See perlfork. Over on the perldoc for perlport I see that system(1, @args) will spawn an external process without waiting for the child to terminate. Disclaimer: I don't do windows.	[reply]
Re^4: Fork and exec by perlmonkdr (Beadle) on May 02, 2008 at 20:34 UTC


No such thing as a small change
	PerlMonks