gmane.comp.lang.perl.perl-mongers.moscow

Re: $SIG{CHLD}

Alexey Shrub — 2012-05-18T12:20:47

18.05.2012 15:03, Alexandr Alexeev написал:

Типо того, поэтому и нужен цикл - хендлер будет вызван один раз, но 
waitpid будет возвращать столько значений сколько померло детей

"If a signal of any given type fires multiple times during an opcode 
(such as from a fine-grained timer), the handler for that signal will be 
called only once, after the opcode completes; all other instances will 
be discarded"

Re: $SIG{CHLD}

Alexandr Alexeev — 2012-05-18T12:03:27

"поэтому не обработает несколько одновременных сигналов"

Если память не изменяет, сигналы вообще имеют свойство теряться, ибо не
кладутся они в очередь.

18 мая 2012 г., 15:52 пользователь Alexey Shrub <worldmind< at >mail.ru> написал:

Re: непонятный стук

Dmitry Karasik — 2012-05-18T11:53:05

да, точно ((( интересно это линух-специфично или на фре например тоже?

но в любом случае, можно попробовать дополнить рецепт: первый сокет открыть без LocalPort,
через getsockname вытащить номер порта вызанный системой, и дальше реюзать его

$SIG{CHLD}

Alexey Shrub — 2012-05-18T11:52:05

Привет всем,

заметил что в доках неполные примеры для обработки сигнала CHLD, тут
http://perldoc.perl.org/perlipc.html#Signals
дано три примера,, первый блокирующий - неактуально для меня, второй 
якобы не учитывает CHLD от внешних команд, третий типо учитывает, но он 
уже не содержит цикла while и поэтому не обработает несколько 
одновременных сигналов (если сразу несколько потомков померло) т.е. 
второй нужно скрещивать с третьим.
Мало того, там не описано что CHLD может приходить и в случаях отличных 
от смерти дитя, это написано тут
http://docstore.mik.ua/orelly/perl/cookbook/ch16_20.htm
попробовал скрестить

Re: непонятный стук

Ivan Petrov — 2012-05-18T11:03:38


в статье написано (и это получается так и есть), что если локалпорт не
указывать, то и опция ReuseAddr тоже смысла не имеет.

то есть код IO::Socket::INET->new(PeerAddr => '127.0.0.1', PeerPort =>
$port, ReuseAddr => 1);

точно так же приводит к тому что данное приложение кроме себя мешает
жить и остальным тоже

Re: непонятный стук

Dmitry Karasik — 2012-05-18T10:58:45

Убрать LocalPort, пусть система сама перебирает. LocalPort для
исходящих сокетов мало когда имеет смысл назначать.

Re: непонятный стук

Ivan Petrov — 2012-05-18T10:58:04


это я на перле/Debian не могу попробовать. Perl5.14 жалуется на то что
данная опция данным вендром не поддерживается

Re: непонятный стук

Ivan Petrov — 2012-05-18T10:55:23

спасибо за ссылку. хгм

my $s = IO::Socket::INET->new(PeerAddr => '127.0.0.1', PeerPort =>
$port, ReuseAddr => 1, LocalAddr => '127.0.0.1', LocalPort => 9110);

теперь на эту ошибку нарывается только сам скрипт. то есть раз в
секунду две вылетает пачка ошибок и дальше проблема рассасывается

вопрос остается: как модифицировать данный скрипт чтобы вообще не
налетать на данную проблему? вручную перебирать порты до удачного
результата?

Re: непонятный стук

Dmitry Karasik — 2012-05-18T10:55:21

а если еще и SO_REUSEPORT ?

Re: непонятный стук

Ivan Petrov — 2012-05-18T10:42:55


добавил опцию ReuseAddr в вышеприведенный скрипт. ничего не меняется в
результатах

Re: непонятный стук

Orlovsky Alexander — 2012-05-18T10:39:48

http://pzz.livejournal.com/9564.html

18.05.2012, 14:29, "Sergey Aleynikov" <sergey.aleynikov< at >gmail.com>:

Re: непонятный стук

Sergey Aleynikov — 2012-05-18T10:29:21

Добрый день,

keywords: bind+before+connect, SO_REUSEADDR

Best regards,
Sergey Aleynikov

Re: непонятный стук

Ivan Petrov — 2012-05-18T10:20:41

на это я наткнулся на том что сделали на twiggy небольшой сервис на
коннекте, который в режиме запрос-ответ выполняет некую задачу.

по самой постановке задачи делать keeep-alive невозможно, то есть один
запрос = 1 коннекту. ну и на сравнительно небольшой нагрузке налетаем
на эти проблемы.
ну а далее дошли до nginx в виде сервера и скрипта не на AE в виде
клиента. 
то есть нужна какая-то ручка в OS которая это регулирует.

кто нибудь хорошо знает сетевую подсистему линукс? какую ручку
подергать?

Re: непонятный стук

Ivan Petrov — 2012-05-18T10:09:24

1 и даже 0 ничего не меняют в картинке

Re: непонятный стук

iSage — 2012-05-18T09:59:46

Подкрутить /proc/sys/net/ipv4/tcp_fin_timeout
(там значение в секундах)

On Fri, 18 May 2012 13:55:29 +0400, Ivan Petrov
<i.petro.77.00< at >gmail.com> wrote:

Re: непонятный стук

Ivan Petrov — 2012-05-18T09:55:29

ну да их там тыщи. вопрос как модифицировать скрипт и (или) сервер
(см. предыдущее письмо) чтобы от этого избавиться. или может есть
ручки в ядре?

Re: непонятный стук

Ivan Petrov — 2012-05-18T09:53:43



вот такой скрипт:

без всяких AE.

#!/usr/bin/perl

use warnings;
use strict;

use utf8;
use open qw(:std :utf8);
use IO::Socket::INET;

my $port = $ARGV[0];


while(1) {
    my $s = IO::Socket::INET->new(PeerAddr => '127.0.0.1', PeerPort => $port);
    printf "Приконнектились: %s\n", $s ? 'да' : $!;
    close $s if $s;
}

берем скажем nginx и пускаем скрипт с параметром 80

через какое-то время исчерпываются свободные порты.

при этом и nginx и скрипт в /proc/PID/fd показывают около десятка
открытых сокетов всего.

похоже OS (Linux 3.1) имеет тайм некоторый на возврат порта в список
"свободных"

в другой рассылке посоветовали 3.2 посмотреть, там де какой-то баг
фиксили именно на эту тему, но я еще

Re: непонятный стук

Dmitry Karasik — 2012-05-18T09:09:55

если с undef $handle все работало, то можно запустить урезанные версии
скрипта под strace и сравнить чем эти две конструкции так сильно отличаются
...
можно еще попробовать покрутить системный somaxconn но непохоже по диагнозу если честно

Re: непонятный стук

Гнатына Александр — 2012-05-18T07:53:53

netstat -ntpa|grep TIME_WAIT? 

В Птн, 18/05/2012 в 11:03 +0400, Ivan Petrov пишет:

Re: непонятный стук

Konstantin S. Uvarin — 2012-05-18T07:47:41

Приветствую! 

 
А ОС-то какая? Тут, мне кажется, не в перле дело (тем более, что соединяется 
скрипт, а не работает браузер)

--
WBR,
Konstantin S. Uvarin

непонятный стук

Ivan Petrov — 2012-05-18T07:03:46

есть приложение (БД), заточенное под быструю обработку запросов
клиентов.

есть скрипт который в цикле делает
    1. коннект
    2. запрос
    3. дисконнект

далее, знаем PID БД, PID скрипта и смотрим в нескольких терминалах

watch 'ls /proc/PID/fd/'

и видим что ни БД ни скрипт не имеют ни в какой момент времени более
10-15 открытых сокетов.
спустя минут 10 работы скрипт и вообще все приложения (включая
браузер) отваливаются "сеть недоступна".

в dmesg сообщений нет. в логах тоже.

потом все восстанавливается.

если скрипт будет делать паузы небольшие между коннектами, то все
может работа