perl实现守护进程

#!/usr/bin/perl
use 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 $childPid=shift;
       waitpid $childPid,0;
    }
    };    
    sleep 1800;
}

本文出自 “技术屌丝” 博客，谢绝转载！

perl实现守护进程

原文：http://yeqing.blog.51cto.com/3159086/1681656