Легенда:
 новое сообщение
 закрытая нитка
 новое сообщение
 в закрытой нитке
 старое сообщение
|
- Напоминаю, что масса вопросов по функционированию форума снимается после прочтения его описания.
- Новичкам также крайне полезно ознакомиться с данным документом.
[perl] зависание сессий при ожидании ответа от сервера (io::socket::inet) 11.12.03 20:23
Автор: VaksID2 Статус: Незарегистрированный пользователь
|
use IO::Socket::INET;
$sock=IO::Socket::INET->new(PeerAddr => "proxy:port", Timeout => 5);
return('error') unless ($sock);
print $sock "GET http://site/page HTTP/1.0\r\n";
print $sock "заголовки...\r\n\r\n";
while (<$sock>) { push(@resp,$_); } или просто @resp=<$sock>;
return(@resp);}
---
Суть в следующем: через различные прокси загружаются различные страницы с различных серваков. Сокет создается нормально, запрос уходит, а вот ответ почему-то не приходит и сессия подвисает на долгое время, пока вручную не убью. Подскажите, pls, что я делаю не так. Можно ли как-нибудь выставить таймаут на прием данных на более низком уровне (т.е. используя только модульSocket) или непосредственно в запросе.
|
|
|
подробно о проекте
Анализ криптографических сетевых...
