|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Golyashov Sergey 2:5020/400 10 Mar 2005 15:05:44
To : Konstantin Tokar
Subject : Re: демоны...
--------------------------------------------------------------------------------
Konstantin Tokar пишет:
> Я просветил. Тебе что-то непонятно?
Hе понятно - почему именно использование Proc::Daemon можно считать
правилным способом?
Смотрим Daemon.pm и видим:
sub Fork {
my($pid);
FORK: {
if (defined($pid = fork)) {
return $pid;
} elsif ($! =~ /No more process/) {
sleep 5;
redo FORK;
} else {
croak "Can't fork: $!";
}
}
}
sub Init {
...
## Fork and exit parent
if ($pid = Fork) { exit 0; }
## Detach ourselves from the terminal
croak "Cannot detach from controlling terminal"
unless $sess_id = POSIX::setsid();
## Prevent possibility of acquiring a controling terminal
if (!$oldmode) {
$SIG{'HUP'} = 'IGNORE';
if ($pid = Fork) { exit 0; }
}
...
}
Чего-то координально нового я тут не увидел. Соответственно не пойму
зачем ставить модуль, не входящий в состав perl по умолчанию, для того,
чтобы реализовать все тоже самое, что можно легко сделать и без него.
Или Вас смутило то, что в моем примере демон не отваливался от
терминала? Дык подобных примеров в сети полно.
--- ifmail v.2.15dev5.3
* Origin: Demos online service (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
