ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Alexander Lunkov                     2:5055/201.26  16 Nov 2001  22:55:44
 To : All
 Subject : В чём трабла?
 -------------------------------------------------------------------------------- 
 

 
 
     Есть код. Покдлючается через сокеты к веб-серверу. Пишет туда строку запроса
 страницы и выводит полученное содержимое. Зависает на чтении данных (read). Где 
 я неправ?
 
 use Socket qw(AF_INET SOCK_STREAM inet_aton sockaddr_in);
 
 $host = 'localhost';
 $port = 80;
 $buf="";
 
 $ip_addr = inet_aton $host or die "unknown remote host: $host\n";
 socket $self, AF_INET, SOCK_STREAM, 0 or die "problem creating socket: $!\n";
 connect $self, sockaddr_in($port, $ip_addr) or die "problem connecting to
 \"$host\", port $port: $!\n";
 print $self "GET /Z HTTP/1.0\n";
 
 #вот до сюда всё ок! зависает на включенном select или read, если select выкл.
 
 #select($self);
 read $self, $buf, 5;
 print $buf;
 close;
 
 зыж только что попробовал:
     если вместо read $self, $buf, 5; написать accept $self, $buf;, то вылезает:
     accept() on unopened socket at 4.pl line 17. К line 17 не придирайтесь,   
 т.к. в запускаемом скрипте есть комментарии.
 
 -+-
     mailto: inzect0r_at_rambler.ru                      Sincerely yours, Alex
 --- registered Linux user number 225940.
  * Origin: Люди всегда будут такими, какими делают их женщины. (2:5055/201.26)
 
 

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

Тема:    Автор:    Дата:    В чём трабла?   Alexander Lunkov   16 Nov 2001 22:55:44   Re: В чём трабла?   Yuriy Kaminskiy   19 Nov 2001 03:11:18