ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : "igo                                 2:5020/400     25 Apr 2005  15:32:36
 To : All
 Subject : чайник & socket
 -------------------------------------------------------------------------------- 
 

 Как послать в сокет? что  то типа print <SOCK> "quit/n";
 
 use strict;
 use Socket;
 
 my ($remote,$port, $iaddr, $paddr, $proto, $line);
 $iaddr   = inet_aton("x.x.x.x");
 $paddr   = sockaddr_in(25, $iaddr);
 
      $proto   = getprotobyname('tcp');
      socket(SOCK, PF_INET, SOCK_STREAM, $proto);
      connect(SOCK, $paddr)    || print "error $!";
      while (defined($line = <SOCK>)) {
          print $line;
      }
 
      close (SOCK)            || die "error: $!";
 exit;
 --- ifmail v.2.15dev5.3
  * Origin: RTComm.RU (2:5020/400)
 
 

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

Тема:    Автор:    Дата:    чайник & socket   "igo   25 Apr 2005 15:32:36   Re: чайник & socket   Artem Chuprina   25 Apr 2005 15:55:02