一个perl多进程的简单程序框架
一个perl多进程的简单程序框架#!c:/perl/bin/perl.exe -w
my $maxchild=10;
for($i=0;$i<=$maxchild-1;$i++)
{
my $child=fork();
if($child)
{ # child >; 0, so we're the parent
warn "launching child $child/n";
}else{
do_child($i); # child handles
exit 0; # child is done
}
}
exit;
sub do_child
{
my $child_number=shift(@_);
print("child ,$child_number /n");
}
运行程序
D:/MySoft/perl>fork_test1.pl
launching child -1964
child ,0
launching child -3184
child ,1
launching child -1740
child ,2
launching child -2872
launching child -2692
child ,3
launching child -2680
child ,4
launching child -2684
child ,5
launching child -1660
child ,6
launching child -2940
child ,7
launching child -600
child ,8
child ,9
D:/MySoft/perl>
页:
[1]