VPF::демон с исп. IO::Socket::INET - Форум программистов

bonger

Дата 3.11.2011, 18:41 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 10.3.2011

Репутация: нет
Всего: нет

Привет всем, возникла следующая проблема. Написал демона, след образом:
1) демонизируемся вот так, и создаем сокет(и тут же перенаравляем std err&out в файлы логов, не пишу для краткости)

Код


sub daemonize {
    defined( my $pid = fork() )
      or print "$time Cannot fork: $!\n"
      and return;
    if ( $pid ) {
        print "Classifier daemon started.\n";
        exit(0);
    }
}

my $sock = IO::Socket::INET->new(
    LocalPort => '3333',
    Proto => 'tcp',
    ReuseAddr => 1,
    Listen => 1,
) or print "Cannot open socket: $!\n"
  and exit(1);

2) Слушаем сокет и если пришел определенный запрос, что-то там отвечаем, что нам нужно:

Код


my $working = 1;
while ( $working ) {
    if ( my $client = $sock->accept() ) {
         my ($input, $answer);
        $client->recv($input, 1024, 0);

### Если пришел сигнал о шатдауне, выключаемся
         if ($input =~ /^shutdown/i) {
            print STDOUT "$time Got shutdown, exiting\n";
            $working = 0;
        }

###Здесь делаем дела с ответом, решаем, что ответить, и отвечаем

        print $client line_length($answer), $answer;
        close $client;
    }
}

Вот, собственно такая простая штука. Работает. На 3 сообщения подряд. Дальше $client = $sock->accept() - не выполнется, т.е. в эту ветку уже не входит.

Pfailed

Дата 3.11.2011, 20:04 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

Зависает на accept() или завершается?

--------------------

I'm on CPAN
I'm on github

bonger

Дата 3.11.2011, 20:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 7
Регистрация: 10.3.2011

Репутация: нет
Всего: нет

Именно зависает, т.е. демон висит, но отвечать перестает. Вставил трейсы - вот сюда заходит:

Код


while ( $working ) {

А вот это условие уже не выполняется:

Код


if ( my $client = $sock->accept() ) {

Pfailed

Дата 3.11.2011, 20:49 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 933
Регистрация: 19.7.2009

Репутация: 2
Всего: 39

Видимо проблемы где-то в другом месте. Нужен минимальный пример, который можно запустить и увидеть проблему.

--------------------

I'm on CPAN
I'm on github

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: разработка для Web \| Следующая тема »