perl守护进程

发布时间：2020-12-15 23:41:59 所属栏目：大数据来源：网络整理

导读：#!/usr/bin/perluse strict;use File::Slurp;use Proc::Fork;my $code=read_file('./dig.pl');while(1){?? run_fork{?????? child{ ?? ??? eval($code);?? ??? if($@){?? ??????? ERROR? $@;?? ???? }?? ??? exit;?? ?}?? ?parent{?? ??? my $child_pid=shif

#!/usr/bin/perluse strict;use File::Slurp;use Proc::Fork;my $code=read_file('./dig.pl');while(1){?? run_fork{?????? child{ ?? ??? eval($code);?? ??? if($@){?? ??????? ERROR? $@;?? ???? }?? ??? exit;?? ?}?? ?parent{?? ??? my $child_pid=shift;?? ??? waitpid $child_pid,0;?? ?}??? };?? ???? sleep 10;}

（编辑：李大同）

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