ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Aleksej R. Serdyukov                 2:5020/24000   03 Nov 2004  19:11:40
 To : All
 Subject : telnet
 -------------------------------------------------------------------------------- 
 

 
 Запускаю. Захожу ZOCом. В сервер попадает, в клиент (ZOC) - нет. Почему и как
 исправить?
 Где почитать про "PF_INET", "SOCK_STREAM", "SOL_SOCKET", "SO_REUSEADDR" и
 прочее?
 Как получать данные от клиента посимвольно?
 
   =================== Cut ===================
 #!/usr/bin/perl -w
 require 5.002;
 use strict;
 use Socket;
 use Carp;
 my($port, $paddr);
 $port=230;
 socket(Server, PF_INET, SOCK_STREAM, getprotobyname('tcp')) or die ("Socket
 error: $!");
 setsockopt(Server, SOL_SOCKET, SO_REUSEADDR, pack("l", 1))  or die "setsockopt: 
 $!";
 bind(Server, sockaddr_in($port, INADDR_ANY)) or die "bind: $!";
 listen(Server,SOMAXCONN)                     or die "listen: $!";
 
 while($paddr = accept(Client,Server)){
   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";
 }
   ================= End cut =================
 
 =^..^= Good luck! +++
 ... OS/2 - система, сжигающая карму (c)
 --- GoldED+/W32 1.1.5-040120
  * Origin: Delete Software Limited, Moscow, Russia. (2:5020/24000)
 
 

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

Тема:    Автор:    Дата:    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