Я сам сталкивался с такой проблемой.17.12.03 03:20 Число просмотров: 2272 Автор: esc Статус: Незарегистрированный пользователь Отредактировано 17.12.03 03:45 Количество правок: 1
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) или непосредственно в запросе.
Я сам сталкивался с такой проблемой.17.12.03 03:20 Автор: esc Статус: Незарегистрированный пользователь Отредактировано 17.12.03 03:45 Количество правок: 1