VPF::parser кино ... - Форум программистов

thefree

Дата 9.4.2009, 23:13 (ссылка)

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

Загрузка ...

Новичок

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

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

есть код ...

Код


#!/usr/bin/perl -w

use strict;
use Encode 'encode';
use CGI::Carp 'fatalsToBrowser';
use LWP::UserAgent;
use HTTP::Cookies;
#use LWP;
use CGI;

# Mozilla/5.0 (Windows; U; Windows NT 5.1; ru; rv:1.8.1.20) Gecko/20081217 Firefox/2.0.0.20
my $ua = LWP::UserAgent->new(agent => $ENV{'HTTP_USER_AGENT'});
my $cookie_jar = HTTP::Cookies->new(
    file => 'cookies.txt',
    autosave => 1,
    #ignore_discard => 1
);

$ua->cookie_jar($cookie_jar);

my $q = new CGI;

print "Content-type: text/html\n\n";

my $response = $ua->get($q->param('l'));

if ($response->is_success) {
        my $out = $response->decoded_content;
        print encode('cp1251', $out);
} else {
        die $response->status_line;
}

Код я запускаю с ?l=http://www.kinopoisk.ru
Когда же я пытаюсь попасть на страницу фильма меня банят.
Кому то удалось это преодолеть? как я понимаю они фиксят это по кукки?

вопрос как решить проблему бана + не сохраняются куки?

sir_nuf_nuf

Дата 10.4.2009, 00:26 (ссылка)

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

Загрузка ...

Опытный

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

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

что значит банят ?
1) попробуйте зайти обычным браузером, например FireFox, посмотреть какие HTTP заголовки отправляются (например через firebug)
2) посмотрите какие заголовки отправляет LWP
3) сравните и подгоните , что бы было как в браузере

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

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