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

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

 

1. #!/usr/bin/perl -w 
2. # wangxiaoyu#live.com
3. use strict;  
4.  
5. defined(my $pid=fork()) or die "Fork process failured:$!\n";  
6. unless($pid)  
7. {  
8.      # This is the child process.  
9.      system "date";  
10.      sleep(3);  
11.      print ("Exit child after 3 seconds wait!\n");  
12.      exit();  
13. }  
14. # This is the parent process.  
15. waitpid($pid,0);  
16. system "date";  
17. 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!

 

     本文转自xiaoyuwang 51CTO博客，原文链接：http://blog.51cto.com/wangxiaoyu/367589，如需转载请自行联系原作者