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

[Alexander Vlasov <zulu@gala.net>]

Как не работает?
Живой фрагмент...

sub login {
        my $sock = IO::Socket::INET->new("127.0.0.1:3339");

        select((select($sock), $| = 1)[0]);
        binmode $sock, ':utf8';

        print $sock "login name='$USER' password='$PASSWORD' node=
$AUTHPOINT ip=127.0.0.1\r\n\r\n";
        sleep (2);
        print $sock "gender node=$AUTHPOINT name=m\r\n\r\n";


В Птн, 16/06/2006 в 20:44 +0400, Dmitry E. Oboukhov пишет:
> > 2. по Perl русскоязычной рассылки никто не знает?
> ладно раз никто не знает по рассылке, может кто ответит по Perl?
> 
> я нигде не нашел ответа на вопрос можно ли с сокетами в перл работать
> как с файлами?
> 
> 
> в смысле чтения из сокета я попробовал работает
> $line=<$socket>;
> 
> а вот в смысле записи в сокет экспериментально попробовал - не работает
> print $socket "бла-бла";
> 
> да я знаю про send, но в данный момент стоит вопрос использования кода
> куда хочется сокет вместо файла подсунуть...
> 
> можно как-то научить print'ы писать в сокет?
> 
> 
-- 
Alexander Vlasov
ZULU-UANIC
JID: zulu <at> jabber.kiev.ua