如何在 Linux 中將 Perl 腳本作為系統守護程序運行？

Question

讓 Perl 腳本在 linux 中作為守護程序運行的簡單方法是什么？

目前，這是在 CentOS 上。 我希望它與系統一起啟動並與系統一起關閉，所以一些/etc/rc.d/init.d集成也很好，但我總是可以向/etc/rc.d/rc.local添加自定義行/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::Daemon 所做的所有事情：

1. Fork 一個子進程並退出父進程。
2. 成為會話領導者（將程序與控制終端分離）。
3. Fork 另一個子進程並退出第一個子進程。 這防止了獲得控制終端的可能性。
4. 將當前工作目錄更改為"/" 。
5. 清除文件創建掩碼。
6. 關閉所有打開的文件描述符。

與運行級別系統集成很容易。 在/etc/init.d中，您需要一個類似以下的腳本（用 Perl 腳本的名稱替換XXXXXXXXXXXX ，用它的作用描述替換YYYYYYYYYYYYYYYYYYY用 Perl 腳本的/path/to替換/path/to ）。 由於您使用的是 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

如果您沒有 Chas 建議的Proc::Daemon 。 Owens，這是您手動完成的方法：

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

Answer 3

我認為最簡單的方法是使用daemon 。 它允許您將任何進程作為守護進程運行。 這意味着，例如，如果您決定改用 Python，則不必擔心庫。 要使用它，只需使用：

daemon myscript args

這應該在大多數發行版上可用，但默認情況下可能不會安裝。

Answer 4

我使用 supervisor 來運行 perl 腳本。

作為系統管理員，我喜歡盡量減少服務器之間的變化和變化，喜歡堅持核心服務或最低限度。

Supervisor 已經安裝並且可用於在同一台機器上運行的 python-flask 應用程序。 所以，我只是為我想作為服務運行的 perl 腳本添加了一個 conf 文件。 現在，我可以

supervisorctl start/stop/restart my_perl_script_supervisor_service_name