#!/usr/bin/perl
use strict;
use POSIX ":sys_wait_h";

my $PidFile = "/var/run/<твой пид>.pid";	# PID-файл (идентификатор процесса)
my $RefreshInterval = 10; 

Daemonize();

sub Process {
	#Комманды демонизированного процесса
}

sub Daemonize {
	# При живом демоне не запускаемся
	if (TestMinion()){
		print "xxx is already running\n\n";
		exit(1);
	}
	my $NPId = fork(); # ! ВЕТВИМСЯ !
	if ($NPId){ # Родитель
		print "My pid is: ", $$, "\n";
		print "Daemon pid is: ", $NPId, "\n";
		open(FH, "+>" . $PidFile); # PID процесса - потомка
		print FH $NPId;
		close(FH);
		exit(0); # Выходим
	} else { # Демон
		POSIX::setsid(); # Отваливаем

		# Обработчики сигналов
		$SIG{'INT'} = "IGNORE";
		$SIG{'HUP'} = "IGNORE";
		$SIG{'TERM'} = \&SigTERM;
		$SIG{'CHLD'} = "IGNORE";

		for (;;){
			Process();
			sleep($RefreshInterval); # Спим
		}
	}
}

sub SigTERM {
	unlink($PidFile);
	exit(0);
}

#
# Проверка наличия процесса в памяти
#
sub TestMinion{
	my $NStatus = 0;
	if (-f $PidFile){ # Если есть такой pid файл
		open(FH, "<" . $PidFile); # Читаем pid
		my $NRootPId = <FH>;
		close(FH);
		if ($NRootPId) { # Если есть pid
			if (kill(0, $NRootPId)) { $NStatus = 1;	# Если процесс жив
			} else { unlink($PidFile); }		# иначе - стираем файл
		}
	}
	return $NStatus
}

• [Perl] fork() объясните смысл - choor 16.04.03 13:14 [1273]
  • 2mozart Прошу по-хорошему - закрой тему. Кажется,... (-)  - Ktirf 18.04.03 18:13 [1359]
  • [Perl] fork() объясните смысл - vh 16.04.03 18:01 [1608]
  • [Perl] Демонизация - whiletrue 16.04.03 17:58 [2286]
  • На fork() основана вся многозадачность UNIX. Или т... (-)  - Ktirf 16.04.03 16:05 [1545]
  • Поясняю, в меру своих знаний. - DPP 16.04.03 13:29 [1318]