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

Posted 2023-02-26

【中文标题】如何在 linux 中将 Perl 脚本作为系统守护进程运行？

【英文标题】：How can I run a Perl script as a system daemon in linux?

【发布时间】：2010-10-20 11:10:33

【问题描述】：

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

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

【参考方案1】：

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

#!/usr/bin/perl

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

Proc::Daemon::Init;

my $continue = 1;
$SIGTERM = sub  $continue = 0 ;

while ($continue) 
     #do stuff

您也可以做 Proc::Daemon 所做的所有事情：

fork 一个子进程并退出父进程。 成为会话负责人（将程序与控制终端分离）。 fork 另一个子进程并退出第一个子进程。这可以防止获得控制终端的可能性。 将当前工作目录更改为"/"。 清除文件创建掩码。 关闭所有打开的文件描述符。

与运行级别系统集成很容易。在/etc/init.d 中，您需要一个类似以下的脚本（将XXXXXXXXXXXX 替换为Perl 脚本的名称，将YYYYYYYYYYYYYYYYYYY 替换为它的功能描述，将/path/to 替换为Perl 脚本的路径）。由于您使用的是 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

【讨论】：

我得到的 Service X 不支持 chkconfig。当运行 chkconfig -add X. 有什么建议吗？

啊，对不起，原来是我的错。 #description 上的错字。非常感谢！

我可以在将 XX 和 YY 值替换为 /etc/init.d 后复制此脚本吗？当我运行它时它不像服务一样运行（在后台），我怎样才能使守护进程像 httpd 一样？

@KishoreRelangi 嗯，daemon $binary 行应该在后台启动程序。您能否将您的脚本发布到另一个问题或通过电子邮件发送给我（我的电子邮件在我的个人资料中）？

@Chap 父子进程都退出。孙子作为守护进程运行。我已经更新了指向新永久链接的链接，有人会认为永久链接是永久性的吗？

【参考方案2】：

如果您没有 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");
 

【讨论】：

我想说安装 Proc::Daemon 比手动安装要容易得多，但是 TMTOWTDI 总是好的 :)

实际上，一个对我来说比上一个更好。我可以控制每个输入输出。猜猜你也可以在 Proc::Daemon 中找到它！

赞成不需要非核心模块，这有时很重要。

移除了 fork 并替换为 Parallel::ForkManager，我有了一个不错的守护进程生成器。谢谢！

在 fork() 函数的 perldoc 中以前不是这个或其他一些微笑的东西吗？

【参考方案3】：

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

daemon myscript args

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

【讨论】：

这是一个很酷的想法，但我知道有些生产环境无法访问守护进程二进制文件。就个人而言，我认为这更像是一个测试/开发平台，而不是您在企业生产环境中使用的东西。不过信息很好——我以前没听说过。 （编辑：没有意识到线程已经 5 岁了，但仍然与 IMO 相关）

【参考方案4】：

我使用 supervisor 来运行 perl 脚本。

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

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

supervisorctl start/stop/restart my_perl_script_supervisor_service_name