Perl多进程实例

use strict;
use warnings;

my @arr_cmd = ("echo child1",  "echo child2", "echo child3");

my $child;
my @arr_child;

foreach(@arr_cmd){
	my $cmd = $_;
	unless($child = fork){
		system($cmd);
		exit;
	}
	
	push(@arr_child, $child);
}

foreach(@arr_child){
	waitpid($_, 0);
}