关于理解Perl的fork函数的一个范例

方便理解，Perl的fork函数派生子进程的过程：

 

 
 

#!/usr/bin/perl -w 
  
  
# wangxiaoyu#live.com
  
  
use strict;  
  
  
 
  
  

defined(my $pid=fork()) or die "Fork process failured:$!\n";  

  
  

unless($pid)  

  
  
{  
  
  
     # This is the child process.  
  
  

     system "date";  

  
  
     sleep(3);  
  
  

     print ("Exit child after 3 seconds wait!\n");  

  
  

     exit();  

  
  
}  
  
  
# This is the parent process.  
  
  

waitpid($pid,0);  

  
  

system "date";  

  
  

print ("exit parent!\n");  

 
 

程序执行结果如下：

# perl perl-fork02.pl
Wed Aug  4 22:51:38 HKT 2010
Exit child after 3 seconds wait!
Wed Aug  4 22:51:41 HKT 2010
exit parent!
#
 

如果不在父进程中提供waitpid函数的话，父进程会在成功创建子进程后不等待子进程执行完毕，立即执行其余的代码，这样的话执行的结果如下：

# perl perl-fork02.pl Wed Aug  4 22:50:25 HKT 2010 Wed Aug  4 22:50:25 HKT 2010 exit parent! # Exit child after 3 seconds wait!