Perl多进程程序的编写

用fork函数实现多进程。

 

fork()函数的行为是将目前进程复制一份，用于建立子进程。

其返回值，在子线程中是0，在父线程中是子线程号。

通过判断其返回值来控制各进程的行为。

 

例程：

 

my @pids;

my $pid = fork();

 

if (!defined($pid))
{
   print ("Fork process failured!\n");
   exit();
}

if ($pid == 0)
{
     push @pids, $pid;

　　print ("This is a child process.\n");

}

else
{
　　foreach (@pids) {
     　　waitpid($_,0); # 等待子线程
　　}     

　  print ("This is the parent process. All child processes have finished.\n");
}