Всем привет, не подбросите ли ссылку на доки или просто пример демона на perl, с обработкой сигналов, pid и проч. ?
с уважением, Максим.
>Всем привет, не подбросите ли ссылку на доки или просто пример демона
>на 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);