forum.opennet.ru - "написание демона на perl" (1)

форумы

помощь

поиск

регистрация

майллист

ВХОД

слежка

"написание демона на perl"

Форумы OpenNET: Виртуальная конференция (Public)
Вариант для распечатки		Архивированная нить - только для чтения! Пред. тема \| След. тема
Изначальное сообщение		[Проследить за развитием треда]

"написание демона на perl"
Сообщение от Maxim on 14-Авг-02, 16:15 (MSK)
Всем привет, не подбросите ли ссылку на доки или просто пример демона на perl, с обработкой сигналов, pid и проч. ? с уважением, Максим.
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх

Оглавление

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "RE: написание демона на perl"

Сообщение от uldus on 14-Авг-02, 17:38  (MSK)

>Всем привет, не подбросите ли ссылку на доки или просто пример демона
>на perl, с обработкой сигналов, pid и проч. ?
# Сигналы
sub pipe_sig{
    return 0;
};
local ($SIG{PIPE}) = \&pipe_sig;
# Как стать демоном.
if (fork()) {
  exit;
}
# Pid (требует "use POSIX")
open(PID, ">$pid_file")|| die "Can not create pid file\n";
print PID getpid() . "\n";
close(PID);
# Прочее :-)
close(STDIN);
close(STDOUT);
close(STDERR);

Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.

Партнёры:

Хостинг:

1. "RE: написание демона на perl"
Сообщение от uldus on 14-Авг-02, 17:38 (MSK)
>Всем привет, не подбросите ли ссылку на доки или просто пример демона >на perl, с обработкой сигналов, pid и проч. ? # Сигналы sub pipe_sig{ return 0; }; local ($SIG{PIPE}) = \&pipe_sig; # Как стать демоном. if (fork()) { exit; } # Pid (требует "use POSIX") open(PID, ">$pid_file")\|\| die "Can not create pid file\n"; print PID getpid() . "\n"; close(PID); # Прочее :-) close(STDIN); close(STDOUT); close(STDERR);
	Рекомендовать в FAQ \| Cообщить модератору \| Наверх