Get

  Нужно получить содержание какой-то страницы с какого-то сайта с помощью скрипта .
 Самое простое решение :
 #!/usr/bin/perl -w
 
 use CGI qw(:standard);
 use CGI::Carp qw(fatalsToBrowser);
 use Socket;
 
 print "Content-type: text/html\n\n";
 $host="www.iakovlev.org";
 $port="80";
 socket(SOCK_R_U,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
 $iaddr=inet_aton($host);
 $paddr=sockaddr_in($port,$iaddr);
 connect(SOCK_R_U,$paddr);
 send(SOCK_R_U,"GET /index.html HTTP/1.0
                User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows 98)
 			   Accept: text/html
 			   Referer:
 			   Host: $host\n\n",0);
 @lins=< SOCK_R_U>;
 print @lins;
 close(SOCK_R_U);
 exit();
 
 
 
    

Оставьте свой комментарий !
Ваше имя: Комментарий: Оба поля являются обязательными  Автор   Комментарий к данной статье