59

LinuxでPerlスクリプトをデーモンとして実行する簡単な方法は何ですか?

現在、これは 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. 開いているすべてのファイル記述子を閉じます。

ランレベル システムとの統合は簡単です。次のようなスクリプトが必要です ( XXXXXXXXXXXXPerl スクリプトの名前、YYYYYYYYYYYYYYYYYYYその機能の説明、および/path/toPerl スクリプトへのパスに置き換えます) /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

I think the easiest way is to use daemon. It allows you to run any process as a daemon. This means you don't have to worry about libraries if you, for example, decided to change to python. To use it, just use:

daemon myscript args

This should be available on most distros, but it might not be installed by default.

于 2009-04-20T00:31:43.010 に答える
0

perl スクリプトを実行するためにスーパーバイザーを使用しました。

システム管理者として、私はサーバー間の変更や変動を最小限に抑え、コア サービスまたは最低限のサービスに固執することを好みます。

スーパーバイザーは既にインストールされており、同じボックスで実行されている python-flask アプリケーションで使用できます。そのため、サービスとして実行したい perl スクリプトの conf ファイルを追加しました。今、私はできる

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