有时候需要用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等模块来实现。
初九,潜龙勿用。
【白话】初九,龙尚潜伏在水中,养精蓄锐,暂时还不能发挥作用。
《象》曰:潜龙勿用,阳在下也。
【白话】《象辞》说:龙象征阳。“龙尚潜伏在水中,养精蓄锐,暂时还不能发挥作用”,
是因为此爻位置最低,阳气不能散发出来的缘故。
而我们往往希望这样的程序能够在后台运行。
有些人一般是直接用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等模块来实现。
初九,潜龙勿用。
【白话】初九,龙尚潜伏在水中,养精蓄锐,暂时还不能发挥作用。
《象》曰:潜龙勿用,阳在下也。
【白话】《象辞》说:龙象征阳。“龙尚潜伏在水中,养精蓄锐,暂时还不能发挥作用”,
是因为此爻位置最低,阳气不能散发出来的缘故。