> > я нигде не нашел ответа на вопрос можно ли с сокетами в перл работать
> > как с файлами?
>
> Да.
>
> > а вот в смысле записи в сокет экспериментально попробовал - не работает
> > print $socket "бла-бла";
>
> Что значит не работает? Как проверяли?
>
> Может быть не хватает use IO::Handle;
> $socket->autoflush(1);
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 то работает так как предполагалось.
вот отсюда и возник вопрос.
> Может быть не хватает use IO::Handle;
гхм?
--
To UNSUBSCRIBE, email to [EMAIL PROTECTED]
with a subject of "unsubscribe". Trouble? Contact [EMAIL PROTECTED]
