Re: пара отвлеченных вопросов, офтопик

[Sergey Brutsky <sirj.jj@gmail.com>]

> my $socket;
> socket($socket, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
> connect($socket, sockaddr_in(80, inet_aton("127.0.0.1")));
> print $socket "GET / HTTP/1.0\n\n";
> print while(<$socket>);
>
> почему-то висит и ответа сервера не печатает
>
> а вот если 
> print $socket "GET / HTTP/1.0\n\n";
>
> заменить на send то работает так как предполагалось.
>   
select $socket; $| = 1;
print $socket "GET / HTTP/1.0\n\n";