59

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

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

4

4 回答 4

86

最简单的方法是使用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. 关闭所有打开的文件描述符。

与运行级别系统集成很容易。XXXXXXXXXXXX在. _ YYYYYYYYYYYYYYYYYYY_ /path/to_ /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
于 2009-04-19T23:41:55.080 回答
44

如果您没有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");
 }
于 2009-04-20T14:15:36.353 回答
7

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

daemon myscript args

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

于 2009-04-20T00:31:43.010 回答
0

我使用主管来运行 perl 脚本。

作为系统管理员，我喜欢尽量减少服务器之间的变化和变化，并喜欢坚持核心服务或最低限度。

Supervisor 已安装并可用于在同一机器上运行的 python-flask 应用程序。所以，我只是为我想作为服务运行的 perl 脚本添加了一个 conf 文件。现在，我可以做到

supervisorctl start/stop/restart my_perl_script_supervisor_service_name
于 2020-06-08T11:23:47.867 回答