See also perlipc$SIG{CHLD} = 'IGNORE'; my @programs = qw(file1.pl file2.pl file3.pl ...); for (@programs) { my $pid = fork(); if (!defined $pid) { die "Can't fork child!"; } if ($pid) { do $_; exit; } }
updated: s/undef/! defined/; gah!
In reply to Re: several perl scripts
by Joost
in thread several perl scripts
by rsennat
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |