for (my $i=0; $i < 10; $i++) { $pid = fork; if ($pid == 0) { my $dir_cmd = "dir"; my @output = `$dir_cmd`; exit 1; } elsif ( defined ($pid) ) { # parent $process_count++; push(@pids,$pid); print "job $pid forked \n"; } else { # fork error print "fork failed with code $pid n"; exit 1; } }
In reply to forking in winblows ? by arkamedis21
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |