Как я могу выполнить сценарий Perl как системный демон в Linux?
Используйте mtext3d, чтобы нарисовать его, если ось не находится на ребре по умолчанию. Например,
persp3d(x = xa, y = ya, z = za, col = "red",
xlab = "", ylab = "", zlab = "",
main = "Skew-Stable Efficient Surface", axes = FALSE)
axes3d(edges = c("x--", "y--", "z-+"))
title3d(xlab = "Gamma", ylab = "Beta")
mtext3d("Delta", "z-+", line = 2)
производит это:
3 ответа
Самый простой способ - использовать 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:
- Вилка дочернего процесса и выход из родительского процесса.
- Стать лидером сессии (что отсоединяет программу от управляющего терминала).
- Форк другого дочернего процесса и выход из первого дочернего. Это предотвращает возможность получения управляющего терминала.
- Изменить текущий рабочий каталог на
"/". - Очистите маску создания файлов.
- Закройте все открытые дескрипторы файлов.
Интеграция с системой runlevel проста. Вам нужен скрипт, подобный следующему (замените XXXXXXXXXXXXXX на имя Perl-скрипта, YYYYYYYYYYYYYYYYYYYYYYYYYYYYYY на описание того, что он делает, и /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
Я думаю, что самый простой способ - использовать демон . Это позволяет вам запускать любой процесс как демон. Это означает, что вам не нужно беспокоиться о библиотеках, если вы, например, решили перейти на python. Чтобы использовать его, просто используйте:
daemon myscript args
Это должно быть доступно в большинстве дистрибутивов, но оно может быть не установлено по умолчанию.
Если у вас нет 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");
}