VPF::Не получить страницу www - Форум программистов

sulacco

Дата 13.1.2008, 22:57 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 13.1.2008

Репутация: нет
Всего: нет

Приветствую Вас, спецы мира Перл!
Прочитал в книге пример, как получить страницу из нета но к сожалению,
сервак выдадет ошибку 400. Вот пример:

Код



#!/usr/bin/perl

use strict;
use Socket qw( :DEFAULT :crlf );
use IO::Socket;

my $http_method = shift || 'GET';
my $http_server = shift || 'www.yahoo.com';
my $html_page = shift || 'index.html';

my $http_obj = IO::Socket::INET->new( PeerAddr => $http_server,
PeerPort => 80,
Proto => 'tcp' )
or die "wwwb: could not create socket object: $!\n";

print $http_obj "$http_method $html_page HTTP/1.1$CRLF$CRLF";

while ( my $line = <$http_obj> )
{


 print $line;
}
$http_obj->close;

while( <> )
{


}

Помогите разобраться в чем ошибка, плиз.

nitr

Дата 13.1.2008, 23:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 2543
Регистрация: 10.2.2006
Где: Россия :)

Репутация: 37
Всего: 84

sulacco, не там читали к сожалению. На сокетах HTTP-протокол будете описывать, как будут в этом навыки, и самое главное, будете понимать что хотите и как это всё должно работать ;) (надо документацию почитать).

Чтобы получить "страничку" лучше использовать модуль LWP, прочтите по нему документацию, прочтите о нём в книжке.
Вот небольшой пример:

Код

#!/usr/bin/perl
use strict;
use warnings;

use LWP::UserAgent;

my $ua = LWP::UserAgent->new;
my $response = $ua->get('http://www.yahoo.com/index.html');
if ( $response->is_success ) {
    print "Page content: \n".$response->content;
} else {
    print $response->status_line;
}

Добавлено через 6 минут и 24 секунды

А в вашем случае надо было знать протокол HTTP, прочесть ошибку!

Код

#!/usr/bin/perl
use strict;
use Socket qw( :DEFAULT :crlf );
use IO::Socket;

my $http_method = shift || 'GET';
my $http_server = shift || 'www.yahoo.com';
my $html_page = shift || '/index.html';

my $http_obj = IO::Socket::INET->new( PeerAddr => $http_server,
        PeerPort => 80,
        Proto => 'tcp' )
    or die "wwwb: could not create socket object: $!\n";

print $http_obj "$http_method $html_page HTTP/1.1$CRLF";
print $http_obj "Host: $http_server$CRLF$CRLF";

while ( my $line = <$http_obj> ) {
    print $line;
}
$http_obj->close;

В ошибке было указано:
1) неверный запрос из-за неверной "ссылки". Для исправления меняем строку 9 на

Код

my $html_page = shift || '/index.html';

2) неверный запрос из-за неверно сформулированного запроса, не хватает Host smile

Для этого я добавил и изменил ваш запрос, посылаемый серверу

Код

print $http_obj "$http_method $html_page HTTP/1.1$CRLF";
print $http_obj "Host: $http_server$CRLF$CRLF";

--------------------

I love ArchLinux

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »