Привет.
Задумал я себе сделать на перле демон, который слушает сокет, а при подключении пользователя - форкается и, потомок уже общается с клиентом сам.
Пересмотрел кучу примеров, но, как назло, пример либо просто демона (как отключиться от консоли), либо обычный скрипт-слушалка сокета с умением делать форк.
А вместе два примера почему-то не удается увязать.#!/usr/bin/perl
use strict;
use IO::Socket;
use POSIX;
my $pidfile = "/var/run/fd.pid";
my $port = "21000";
$|=1;
if(-e $pidfile){ die "$pidfile exists.\n"; }
$SIG{INT} = $SIG{TERM} = sub { unlink($pidfile); die "fd exited\n"; };
###
# will become daemon
defined(my $pid = fork) or die "Can't fork: $!";
exit if $pid;
open STDIN, '/dev/null' or die "Can't read /dev/null: $!";
open STDOUT, '>/dev/null' or die "Can't write to /dev/null: $!";
warn("PID: ".getpid()."\n");
POSIX::setsid or die "Can't start a new session: $!";
open STDERR, '>logfile' or die "Can't dup stdout: $!";
open(PID, ">$pidfile") or die "fd: can't open $pidfile: $!\n";
print PID $$;
close PID;
sub REAPER {
my $wpid = wait();
$SIG{CHLD} = \&REAPER; # unless $] >= 5.002
}
$SIG{CHLD} = \&REAPER;
#open server socket, bind to it and listen.
my $main_sock = new IO::Socket::INET (LocalHost => '192.168.0.1',
LocalPort => $port,
Listen => SOMAXCONN,
Proto => 'tcp',
Reuse => 1,
);
while ( my $sock = $main_sock->accept() ) {
my $pid = fork; # parent
die "Cant fork: $!" unless defined $pid;
next if($pid); #parent goes further
#now child is running
print $sock "Hello\r\n";
close($sock);
exit(0);
}
---------------------------------
В чем прикол, что в таком варианте программа отрабатывает ровно один раз, затем завершается? Я что-то упустил?
Если сигнал SIG_CHLD игнорировать, то все работает как надо. Только, естественно, число зомби растет с каждым новым подключением.
