VPF::Запрос к мегафону дальний восток

Gigik

Дата 20.7.2010, 20:45 (ссылка)

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

Загрузка ...

Новичок

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

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

Пытаясь вытащить данные из сервис гида мегафона ДВ, оказалось, что не могу получить данные даже от http://dv.megafon.ru/ . От всех других мегафонов (кавказ, центр и т.п данные получаю без проблем).

Код такой.

Код


#! /usr/bin/perl

use LWP;
use HTTP::Cookies;
use Data::Dumper;

my $ua = LWP::UserAgent->new(keep_alive => 1, cookie_jar => HTTP::Cookies->new, timeout => 6, requests_redirectable => ['GET', 'HEAD', 'POST']);
$ua->agent('Mozilla/5.0 (Macintosh; U; Intel Mac OS X 10.6; ru; rv:1.9.2.6) Gecko/20100625 Firefox/3.6.6');

my $req = HTTP::Request->new(GET=>"http://dv.megafon.ru/");
$req->content_type('application/x-www-form-urlencoded');

my $res = $ua->request($req);

print Dumper($res->headers);
print $res->content, "\n";
print $res->status_line, "\n";

Как можно обойти?

Jimy

Дата 20.7.2010, 23:49 (ссылка)

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

Загрузка ...

Бывалый

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

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

Сервер на данный запрос отвечает "400 Bad Request", т.е. ошибка в запросе.
Обойти можно, вооружившись снифером, сравнивать заголовки отправляемые, например, браузером и данным скриптом.

Gigik

Дата 22.7.2010, 20:58 (ссылка)

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

Загрузка ...

Новичок

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

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

Если кто этим же будет заниматься, то тщательнее подделывайте заголовки запроса.

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