一个perl多进程的简单程序框架

时间：2008-10-29 来源：newred

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

相关阅读更多 +