用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 exitn"; ??? 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 写成，学习其代码是种美妙的享受。感谢他们对开源的贡献……