URL: https://www.opennet.me/cgi-bin/openforum/vsluhboard.cgi
Форум: vsluhforumID1
Нить номер: 19697
[ Назад ]

Исходное сообщение
"написание демона на perl"

Отправлено Maxim , 14-Авг-02 16:15 
Всем привет, не подбросите ли ссылку на доки или просто пример демона на perl, с обработкой сигналов, pid и проч. ?
с уважением, Максим.

Содержание

Сообщения в этом обсуждении
"RE: написание демона на perl"
Отправлено uldus , 14-Авг-02 17:38 
>Всем привет, не подбросите ли ссылку на доки или просто пример демона
>на 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);