ru.cgi.perl

 
 - RU.CGI.PERL ------------------------------------------------------------------
 From : Sergey Stramnov                      2:468/74.73    19 Feb 2002  23:24:06
 To : All
 Subject : socket
 -------------------------------------------------------------------------------- 
 

 
     Подскажите где ошибка? Локально все работает, загрузил на сервер - выдает
 ошибку...
 
 $chkurl="http://www.myserver.com/test.html";
 
 use Socket;
 
 $proto = getprotobyname('tcp');
 socket(Socket_Handle, PF_INET, SOCK_STREAM, $proto);
 
 $hh=$chkurl;
 $hh=~s/http:\/\///;
 @a = split(/\//, $hh);
 $host=$a[0];
 
 # подготавливаем информаци_ о сервере
 $port = 80;
 $sin = sockaddr_in($port,inet_aton($host));
 
 # соединяемся с сервером
 connect(Socket_Handle,$sin) || die ("Cannot connect");
 
 # передаем серверу командv, используя дескриптор сокета
 # собственно команда GET
 send Socket_Handle,"GET $chkurl HTTP/1.0\n",0;
 
 # HTTP-заголовки
 send Socket_Handle,"User-Agent: my agent\n",0;
 send Socket_Handle,"SomeHeader: my header\n",0;
 send Socket_Handle,"\n",0;
 
 # начинаем чтение из дескриптора сокета аналогично
 # тому, как читали из файла.
 
 @lines=<Socket_Handle>;
 $sizeline=@lines;
 close (Socket_Handle);
                     See you later ... I believe.
 ---
  * Origin: Где, где.... в винде! (2:468/74.73)
 
 

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

Тема:    Автор:    Дата:    socket   Sergey Stramnov   19 Feb 2002 23:24:06   Re: socket   Alexey Pchelnikov   20 Feb 2002 01:55:55