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

[Alexander Vlasov <zulu@gala.net>]

И охота вам извращаться, господа?
IO::Socket::INET гораздо проще в работе.

В Птн, 16/06/2006 в 20:46 +0300, Sergey Brutsky пишет:
> можно как-то научить print'ы писать в сокет?
> 
> !/usr/bin/perl -W
> 
> use Socket;
> 
> socket(Socket_Handle, PF_INET, SOCK_STREAM, getprotobyname('tcp'));
> connect(Socket_Handle, sockaddr_in( 80, inet_aton("213.180.204.8")));
> select Socket_Handle; $| = 1;
> print Socket_Handle "GET / HTTP1/.0\n\n";
> print STDOUT <Socket_Handle>;
> close(Socket_Handle);
> 
> 
-- 
Alexander Vlasov
ZULU-UANIC
JID: zulu <at> jabber.kiev.ua