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等模块来实现。
?
初九，潜龙勿用。
【白话】初九，龙尚潜伏在水中，养精蓄锐，暂时还不能发挥作用。
《象》曰：潜龙勿用，阳在下也。
【白话】《象辞》说：龙象征阳。“龙尚潜伏在水中，养精蓄锐，暂时还不能发挥作用”，
是因为此爻位置最低，阳气不能散发出来的缘故。
?