| Цитата |
Потому что запрос неверный. Должно начинаться с "GET /PATH", где PATH путь к требуемуму документу от корня.
http://ru.wikipedia.org/wiki/HTTP#.D0.A1.D....BE.D0.BB.D0.B0
|
Спасибо.
| Код |
#!C:/perl/bin/perl -w
use Socket;
use HTML::LinkExtor;
use Data::Dumper;
#use strict;
$host = "news.mail.ru" ;
$path = "/politics/7504642/";
$port = "80";
$iaddr = inet_aton($host);
if(!$iaddr)
{
print "ERROR\n";
exit(1);
}
my $sock_name = sockaddr_in($port, $iaddr);
# or die "Couldn't convert $host into an Internet address: $!\n";
socket(CONN,PF_INET,SOCK_STREAM,getprotobyname('tcp'));
connect(CONN,$sock_name)
or die "Couldn't' connect to $host: $!\n";
select(CONN); $|=1; #select(STDOUT);
print CONN "GET $path HTTP/1.1\n";
print CONN "Host: $host\n\n";
print CONN "User-Agent: Mozilla/5.0 (X11; U; Linux i686; ru; rv:1.9b5) Gecko/2008050509 Firefox/3.0b5\n";
print CONN "Accept: text/html";
my $body = "";
$body .= $_ while <CONN>; #читаем страничку
close(CONN);
$body =~ s/^.+?\n\r?\n\r?//s;
open(F1,">web-page.html"); #скачиваемая страничка
open(F2,">links.txt"); #сюда кладем ссылки
print(F1 "$body");
#print "$body";
my $parser = HTML::LinkExtor->new();
$parser->parse($body);
my @links = $parser->links;
print(F2 Dumper \@links);
|
Список ссылок с тегами получем так:
| Код |
my $parser = HTML::LinkExtor->new();
$parser->parse($body);
my @links = $parser->links;
print(F2 Dumper \@links);
|
Нужно собрать ссылки на другие страницы отдельно и вывести их. В странице их не менять.
А ссылки на файлы(картинки архивы css, js и т.д.) скачать в отдельную папочку и заменить ссылки на эти файлы в документе(страничке).
Сложность в том,что нужно скачивать эти файлы через сокет. С посыланием запросов через сокет.
Добавлено через 1 минуту и 19 секунд
Цитата(dixoNICH @ 4.12.2011, 13:02  ) | | протокол, наверно, не html, а http, всё же. |
Да, точно.Ошиблась!
|