ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Tokar                     2:5020/400     04 Nov 2004  02:31:43
 To : Aleksej R. Serdyukov
 Subject : Re: telnet
 -------------------------------------------------------------------------------- 
 

 Aleksej R. Serdyukov wrote:
 
 > CONNECT All /||*()*||
 > 
 > Запускаю. Захожу ZOCом. В сервер попадает, в клиент (ZOC) - нет. Почему и как
 > исправить?
 
 Что такое ZOC?
 
 > Где почитать про "PF_INET", "SOCK_STREAM", "SOL_SOCKET", "SO_REUSEADDR" и
 > прочее?
 
 Разработка сетевых программ на Perl. Линкольн Д. Штайн
 > Как получать данные от клиента посимвольно?
 
 Что-то тут с буферизацией. Попробуй заменить на кусок ниже. И в будущем 
 пиши файловые указатели большими буквами - это стандарт.
 
 while($paddr = accept(Client,Server)){
    select Client;
    $|=1;
    local $/ = \1;
    select STDOUT;
    $|=1;
    my($port,$iaddr)=sockaddr_in($paddr);
    $iaddr=inet_ntoa($iaddr);
    print "$iaddr:$port is connected.\n";
    print Client "You are $iaddr\n";
    while(<Client>){print;};
    close Client;
    print "$iaddr:$port is disconnected.\n";
 }
 --- ifmail v.2.15dev5.3
  * Origin: Demos online service (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

Тема:    Автор:    Дата:    telnet   Aleksej R. Serdyukov   03 Nov 2004 19:11:40   Re: telnet   Konstantin Tokar   04 Nov 2004 02:31:43   telnet   Aleksej R. Serdyukov   04 Nov 2004 17:00:42