В сообщении от Пятница 16 Июнь 2006 22:37 Dmitry E. Oboukhov написал(a):
use IO::Handle
> my $socket;
> socket($socket, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
> connect($socket, sockaddr_in(80, inet_aton("127.0.0.1")));
$socket->autoflush(1)
> print $socket "GET / HTTP/1.0\n\n";
> print while(<$socket>);
>
> почему-то висит и ответа сервера не печатает
Потому что данные из буфера не уходят в сокет.
--
Alexander Lourier, http://aml.rulezz.ru