fork,
my %kid; for (1..10) { my $pid = fork; warn("Can't fork $_"), next if not defined $pid; $kid{$pid} = undef, next if $pid; undef %kid; exec qw/perl myscript.pl/; } delete $kid{+wait} while %kid;
After Compline,
Zaxo
In reply to Re: Simulating heavy traffic
by Zaxo
in thread Simulating heavy traffic
by gorillaman
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |