如何在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"); 
}