用perl实现守护进程(daemon)代码

 

有时候需要用perl实现一个服务程序,即linux常说的守护程序(daemon)，而我们往往希望这样的程序能够在后台运行。有些人一般是直接用bg命令把程序放到了后台，但感觉不尽人意。这里提供一个标准的守护进程的代码：
#!/usr/bin/env perl

use strict;
use warnings;

use POSIX;

defined (my $pid = fork()) or die "Can't fork: $!\n";

if ( $pid ) {
    print "This is parent and now exit\n";
    exit;
}

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

#既然是守护进程，就不该从终端读取数据，也不应该将数据输出到终端，当然，健壮
#的程序会把程序输出与错误输出重定向到日志文件里去
if ( -t STDIN ) {
    close STDIN;
    open STDIN, '/dev/null' or die "Can't reopen STDIN to /dev/null: $!\n";
}

if ( -t STDOUT ) {
    close STDOUT;
    open STDOUT, '>', '/dev/null' or die "Can't reopen STDOUT to /dev/null: $!\n";
}

if ( -t STDERR ) {
    close STDERR;
    open STDERR, '>', '/dev/null' or die "Can't reopen STDERR to /dev/null: $!\n";
}

#这里当然就是各位的服务代码了……
while(1){
    sleep 5;
}

##################################################################################
此程序还可以拓展，如将进程id(pid)写入到一个文件等，这样保证不会同时运行两个以上的实例，
各位自由发挥了。

附：此代码参考了《perl网络编程》一书，此书虽是02年出版的，但里面有许多技巧值得好好学习。
同时此代码参考了maatkit程序。这是一套专为开源数据库开发的工具集，掌握这些工具对mysql、
postgresql维护有莫大的好处(网址为：http://code.google.com/p/maatkit/)。此套工具是用perl
写成，学习其代码是种美妙的享受。感谢他们对开源的贡献……