connect() в перле (слишком долго пытается приконнектится)

[povert.org]

У меня система мониторинга. Есть хост или нет его. Если хост есть нужно от него получить информацию (везде стоят мои клиенты и серверы на перл). Вот я и делаю connect(), и если програмка не запущена на сервере и/или порт закрыт connect() пытается доооолго перед тем как сдаться.

Вопрос: как установить таймаут для connect(), чтоб не пытался долго????

[v04bvs]

Можно попытаться установить неблокирующий режим для дескриптора перед вызовом connect.

[madskull]

Эх, давненько я с сокетами напрямую не работал. Даже уже и не помню, что там к чему.

"В лоб" я бы решил проблему с помощью прерывания по времени.

Код: Выделить всё

eval {
    $SIG{ALRM} = sub { die "alarm\n" };
    alarm 10;
    # ... code
};
if ( $@ eq "alarm\n" ) {
    print "время вышло!\n";
}

[povert.org]

про alarm я сразу и подумал, но хотелось чего-то более корректного. А вот неблокирующий режим я не учел, это интересно... там fcntl помоему... Ну а насчет чего-то типа установки параметра сокету, я таймаут не нашел...

Спасибо за советы. Может еще какие идеи?

[Shura]

Глянь на setsockopt().
Я точно помню, что делал, но как чейчас не помню. Приду домой-посмотрю.

[flook]

Неблокирующий коннект делается так:
1. ставим nonblock на сокет
2. зовем connect
3. потом зовем select
4. getsockopt проверяем законнектились ли
точные флаги/аргументы не помню