一个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>