Как не работает? Живой фрагмент... 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