关于理解Perl的fork函数

发布时间：2020-12-16 00:34:01 所属栏目：大数据来源：网络整理

导读：#!/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?(

#!/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");

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!