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();
|
|