ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Averbuh                    2:4625/69.123  08 Dec 2001  17:29:00
 To : All
 Subject : Объясните, где кривость
 -------------------------------------------------------------------------------- 
 

                                                                      і   АДЩ ДБ
 Hello, All! Как поживает твой hерц?
 
 Скрипт работает, да не так, как нужно. Ответ сервера читается как-то криво - по 
 одной строке. А нужно, чтобы все строки читались сразу.
 
 === Cut ===
 use Socket;
 
 $inet_EOL = "\x0d\x0a";
 
 $remote  = 'mail.ru';
 $port    = 110;
 
 $iaddr   = inet_aton($remote)              or die "no host: $remote";
 $paddr   = sockaddr_in($port, $iaddr);
 
 $proto   = getprotobyname('tcp');
 socket(SOCK, PF_INET, SOCK_STREAM, $proto) or die "socket: $!";
 connect(SOCK, $paddr)                      or die "connect: $!";
 select(SOCK); $| = 1; select(STDOUT);
 binmode SOCK;
 while ($vvod ne 'quit') {
  @line=<SOCK>;
  print @line;
  $vvod=<>;
  chomp $vvod;
  print SOCK "$vvod$inet_EOL";
 }
 close (SOCK) or die "close: $!";
 === Cut ===
 
   С уважением, Alexander
 
 Так, идите мыть руки, All!
 
 E-mail, SMS: alexaver@svitonline.com          http://alhome.virtualave.net
                                               http://haverim.virtualave.net
 
 > Если ты будешь бройгес, я тебе сделаю такой цурыс, что ты всю жизнь будешь
 > иметь нахес, надевать тфилин и носить цицис!
 
 --- GoldED 2.50+
  * Origin: Горшок - это филиал унитаза. (2:4625/69.123)
 
 

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