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等模块来实现。


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

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

北雨南萍

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值