и waitpid (что, в общем-то одно и то
>же) - результат один. Хмм...
да все нормально убивается! правильно ты посоветовал. так гуру и советуют, смотри Линкольн Штайн Разработка сетевых программ на перл, я могу пример из нее привести, никаких зомби не возникает(по крайней мере я не нашел).
-------------------------------------------------------------------------
#!/usr/bin/perl -wuse strict;
use IO::Socket;
use IO::File;
use POSIX 'WNOHANG';
my $pidfile = "/var/tmp/fd.pid";
my $logfile = "my.log";
my $pid;
my $port = 21000;
my $quit = 0;
#if(-e $pidfile){ die "$pidfile exists.\n"; }
#Установка обработчиков сигналов
$SIG{INT} = $SIG{TERM} = sub { $quit++ };
$SIG{CHLD} = \&REAPER;
open(LOG, '>>', $logfile) or die "Can't open log file $logfile\n";
my $fh_pid = open_pid_file($pidfile) or die "fd: can't open $pidfile: $!\n";
#open server socket, bind to it and listen.
my $main_sock = new IO::Socket::INET (LocalHost => '127.0.0.1',
LocalPort => $port,
Listen => 20,
Proto => 'tcp',
Reuse => 1,
Timeout => 60*60,
);
die "Can't create a listening socket: $@" unless $main_sock;
# will become daemon
warn "$0 starting ...\n";
$pid = become_daemon();
warn("PID: $pid\n");
print $fh_pid $pid;
close $fh_pid;
open(STDERR, ">&LOG") or die "Can't dup log: $!";
warn "go in cycle\n";
while (!$quit) {
next unless my $sess_sock = $main_sock->accept();
my $pid_sess = fork;
die "Can't fork: $!" unless defined $pid_sess;
if($pid_sess == 0) {
#now child is running
$main_sock->close();
run_session_work($sess_sock);
exit(0);
}
$sess_sock->close();
}
close(LOG);
unlink($pidfile);
die "fd exited\n";
sub become_daemon {
die "Can't fork" unless defined (my $child = fork());
if($child) {
print LOG "close parent, and stay demon";
exit 0; #Завершение родительского сеанса
}
POSIX::setsid(); #Преобразование в лидеры сеанса
print "I life??\n";
#меняем дискрипторы ввода/вывода
open(STDIN, '</dev>/dev/null') or die "Can't write to /dev/null: $!";
umask(0); #Сброс маски режима создания файлов
$ENV{PATH} = '/bin:/usr/bin';
return $$;
}
sub REAPER {
while( (my $wpid = waitpid(-1, WNOHANG)) > 0) {
warn "Reaper child with PID $wpid\n"
}
}
sub run_session_work {
my $sock = shift;
$|=1;
print $sock "Hello\r\n";
close($sock);
exit(0);
}
sub open_pid_file {
my $file = shift;
if(-e $file) {
my $fh = IO::File->new($file) || return;
my $p_old = <$fh>;
#Пытаемся убить текущий процесс
if(defined($p_old)) {
die "Server already running witch PID $p_old\n"
if kill 15, $p_old;
}
warn "Removing PID file for defunct server process \n";
#И удалить pid файл
die "Can't unlink PID file $file\n"
unless -w $file && unlink $file;
}
return IO::File->new($file, O_WRONLY|O_CREAT|O_EXCL, 0644) or die "Can't create pid file $file: $!\n";
}
