Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > parser кино ...


Автор: thefree 9.4.2009, 23:13
есть код ...
Код

#!/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
что значит банят ?
1) попробуйте зайти обычным браузером, например FireFox, посмотреть какие HTTP заголовки отправляются (например через firebug)
2) посмотрите какие заголовки отправляет LWP
3) сравните и подгоните , что бы было как в браузере

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)