方便理解，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!

?

? ? ?本文轉自xiaoyuwang 51CTO博客，原文鏈接：http://blog.51cto.com/wangxiaoyu/367589，如需轉載請自行聯系原作者

總結

以上是生活随笔為你收集整理的关于理解Perl的fork函数的一个范例的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。