Как я могу запустить Perl-скрипт как системный демон в Linux?

Question

Какой простой способ заставить скрипт Perl работать в Linux как демон?

В настоящее время это 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 :: Daemon:

1. Разветвить ребенка и выйти из родительского процесса.
2. Станьте лидером сеанса (который отсоединяет программу от управляющего терминала).
3. Разверните другой дочерний процесс и выйдите из первого дочернего процесса. Это предотвращает возможность приобретения управляющего терминала.
4. Изменить текущий рабочий каталог на "/".
5. Очистить маску создания файла.
6. Закрыть все открытые дескрипторы файлов.

Интеграция с системой уровня запуска проста. Вам нужен скрипт, подобный следующему (замените XXXXXXXXXXXX именем скрипта Perl, 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

Если у вас нет Proc :: Daemon , как предлагает Chas. Оуэнс, вот как бы вы сделали это вручную:

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

Я думаю, что самый простой способ - использовать демон . Это позволяет вам запускать любой процесс как демон. Это означает, что вам не нужно беспокоиться о библиотеках, если вы, например, решили перейти на python. Чтобы использовать это, просто используйте:

daemon myscript args

Это должно быть доступно в большинстве дистрибутивов, но может быть не установлено по умолчанию.