让 Perl 脚本在 linux 中作为守护进程运行的简单方法是什么?
目前,这是在 CentOS 上。我希望它随系统启动并随系统关闭,所以一些 /etc/rc.d/init.d
集成也很好,但我总是可以添加自定义行到 /etc/rc.d/rc.local
.
最佳答案
最简单的方法是使用 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 所做的所有事情:
- fork 一个子进程并退出父进程。
- 成为 session 负责人(将程序与控制终端分离)。
- 派生另一个子进程并退出第一个子进程。这可以防止获得控制终端的可能性。
- 将当前工作目录更改为
"/"
。 - 清除文件创建掩码。
- 关闭所有打开的文件描述符。
与运行级别系统集成很容易。您需要如下脚本(将 XXXXXXXXXXXX
替换为 Perl 脚本的名称,将 YYYYYYYYYYYYYYYYYYYY
替换为它的功能描述,以及 /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
关于linux - 如何在 linux 中将 Perl 脚本作为系统守护进程运行?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/766397/