Perl实现后台守护进程

有时候需要用perl实现一个服务程序,即linux常说的守护程序(daemon)，
而我们往往希望这样的程序能够在后台运行。
有些人一般是直接用bg命令把程序放到了后台，这么做有一些问题。
下面提供一个标准的守护进程的代码：


#!/usr/bin/perl -w
use strict; 
use POSIX; 

##
# 用fock生成进程，并让父进程退出
##
our $pid = fork;
exit if $pid;
die "Couldn't fork: $!" unless defined($pid);

##
# 将后台程序和启动它的终端分离，
# 这里是关键，当主进程退出后，就没有会话组长了，setsid函数将使子进程成为
# 新的会话组长与进程组长，并与原来的会话、进程组脱离关系。
##
POSIX::setsid( )
  or die "Can't start a new session: $!";

##
# 捕获信号，并将创建的子进程一并杀掉并退出
##
$SIG{INT} = $SIG{TERM} = $SIG{HUP} = \&signal_handler;
sub signal_handler {
  kill INT => $pid;
  exit;
}

##
# 将三个标准的文件句柄重定向到 '/dev/null'
##
for my $handle (*STDIN, *STDOUT, *STDERR) {
  open($handle, "+<", "/dev/null")
    || die "can't reopen $handle to /dev/null: $!";
}

##
# 我们自定义的任务程序
##
system("./test.pl");

此程序还可以拓展，如将进程id(pid)写入到一个文件等，这样保证不会同时运行两个以上的实例.
或使用File::Lockfile， File::Pid， Proc::PID::File等模块来实现。

​
初九，潜龙勿用。
【白话】初九，龙尚潜伏在水中，养精蓄锐，暂时还不能发挥作用。
《象》曰：潜龙勿用，阳在下也。
【白话】《象辞》说：龙象征阳。“龙尚潜伏在水中，养精蓄锐，暂时还不能发挥作用”，
是因为此爻位置最低，阳气不能散发出来的缘故。
​