如何在Linux中将Perl脚本作为系统守护程序运行？

Question

在Linux中获取Perl脚本作为守护进程运行的简单方法是什么？

目前，这是在CentOS上。我希望它启动系统并关闭系统，所以一些/etc/rc.d/init.d集成也很好，但我总是可以添加一个自定义线路/etc/rc.d/rc.local。

Answer 1

最简单的方法是使用Proc::Daemon。

#!/usr/bin/perl 

use strict; 
use warnings; 
use Proc::Daemon; 

Proc::Daemon::Init; 

my $continue = 1; 
$SIG{TERM} = sub { $continue = 0 }; 

while ($continue) { 
    #do stuff 
} 

或者你可以做所有的事情PROC ::守护进程：

1. 叉一个孩子，并退​​出父进程。
2. 成为会议的领导者（从控制终端分离程序）。
3. 分叉另一个孩子进程并退出第一个孩子。这防止了获取控制终端的可能性。
4. 将当前工作目录更改为"/"。
5. 清除文件创建掩码。
6. 关闭所有打开的文件描述符。

与运行级系统集成很容易。您需要一个类似以下的脚本（在Perl脚本的名称中替换XXXXXXXXXXXX，其中包含YYYYYYYYYYYYYYYYYYY以及/path/to与Perl脚本的路径），代码为/etc/init.d。既然你使用的是CentOS，一旦你有了/etc/init.d的脚本，你可以使用chkconfig在各种运行级别关闭或打开它。

#!/bin/bash 
# 
# XXXXXXXXXXXX This starts and stops XXXXXXXXXXXX 
# 
# chkconfig: 2345 12 88 
# description: XXXXXXXXXXXX is YYYYYYYYYYYYYYYYYYY 
# processname: XXXXXXXXXXXX 
# pidfile: /var/run/XXXXXXXXXXXX.pid 
### BEGIN INIT INFO 
# Provides: $XXXXXXXXXXXX 
### END INIT INFO 

# Source function library. 
. /etc/init.d/functions 

binary="/path/to/XXXXXXXXXXXX" 

[ -x $binary ] || exit 0 

RETVAL=0 

start() { 
    echo -n "Starting XXXXXXXXXXXX: " 
    daemon $binary 
    RETVAL=$? 
    PID=$! 
    echo 
    [ $RETVAL -eq 0 ] && touch /var/lock/subsys/XXXXXXXXXXXX 

    echo $PID > /var/run/XXXXXXXXXXXX.pid 
} 

stop() { 
    echo -n "Shutting down XXXXXXXXXXXX: " 
    killproc XXXXXXXXXXXX 
    RETVAL=$? 
    echo 
    if [ $RETVAL -eq 0 ]; then 
     rm -f /var/lock/subsys/XXXXXXXXXXXX 
     rm -f /var/run/XXXXXXXXXXXX.pid 
    fi 
} 

restart() { 
    echo -n "Restarting XXXXXXXXXXXX: " 
    stop 
    sleep 2 
    start 
} 

case "$1" in 
    start) 
     start 
    ;; 
    stop) 
     stop 
    ;; 
    status) 
     status XXXXXXXXXXXX 
    ;; 
    restart) 
     restart 
    ;; 
    *) 
     echo "Usage: $0 {start|stop|status|restart}" 
    ;; 
esac 

exit 0 

Answer 2

我觉得最简单的方法就是用daemon。它允许你运行任何进程作为守护进程。这意味着，如果您决定更改为python，则不必担心库。要使用它，只需使用：

daemon myscript args 

这应该在大多数发行版上可用，但它可能不会默认安装。

Answer 3

如果您没有Chas建议的Proc::Daemon。欧文斯，这是你怎么做的手工：

sub daemonize { 
    use POSIX; 
    POSIX::setsid or die "setsid: $!"; 
    my $pid = fork() // die $!; #// 
    exit(0) if $pid; 

    chdir "/"; 
    umask 0; 
    for (0 .. (POSIX::sysconf (&POSIX::_SC_OPEN_MAX) || 1024)) 
     { POSIX::close $_ } 
    open (STDIN, "</dev/null"); 
    open (STDOUT, ">/dev/null"); 
    open (STDERR, ">&STDOUT"); 
}