форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"А почему сокет не ждёт ввода? Установленный "
Сообщение от Lamr on 25-Фев-05, 19:41  (MSK)
телнетом коннект тут же закрывается. Файл создаётся, с этим всё нормально. Раньше код нормально работал, принимал байты пока CTRL-D не нажму. Чё за хрень ? #!/usr/bin/perl -w # use IO::Socket ; use strict ; main (); exit ; sub main { my $sock = IO::Socket::INET->new ( LocalPort =>  8192, Listen => 512, ); die "Can't open socket: $!\n" unless $sock ; for (;;) { next unless $sock->accept ; open ( FILE, ">".time() ) or die "Don't open file: $!\n" ; while ( <$sock> ) { print FILE ; } close FILE ; } }
	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Индекс форумов | Темы | Пред. тема | След. тема

Сообщения по теме

1. "А почему сокет не ждёт ввода? Установленный "
Сообщение от Lamr on 01-Мрт-05, 20:46  (MSK)
>телнетом коннект тут же закрывается. Файл создаётся, с этим всё нормально. Раньше >код нормально работал, принимал байты пока CTRL-D не нажму. > > Чё за хрень ? > > >#!/usr/bin/perl -w ># > >use IO::Socket ; >use strict ; > > main (); > exit ; > >sub main { > >my $sock = IO::Socket::INET->new ( > LocalPort =>  8192, > Listen => 512, >   ); > >die "Can't open socket: $!\n" unless $sock ; > >for (;;) { > > next unless $sock->accept ; надо так next unless my $Sess = $sock->accept ; > > open ( FILE, ">".time() ) or die "Don't open file: $!\n" ; > > while ( <$Sess> ) { >  print FILE ; > } > close $Sess > close FILE ; >} > >} Теперь работает, руки просто кривые.
Удалить	Правка | Высказать мнение | Ответить | Рекомендовать в FAQ | Cообщить модератору | Наверх

Архив | Удалить

Индекс форумов | Темы | Пред. тема | След. тема

Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.