Forum Webscript.Ru

Программирование => Perl => Тема начата: юрий от 27 Марта 2006, 14:37:53

Название: вопрос по кукам (наверное)
Отправлено: юрий от 27 Марта 2006, 14:37:53

вот такой код у меня закачивает страницу с сайта:


use LWP::UserAgent;
use HTTP::Cookies;

my $ua = LWP::UserAgent->new();
$ua -> agent("Mozilla/5.0");
$ua -> cookie_jar(HTTP::Cookies->new(file => \'cookies.txt\', autosave => 1));

my $resp=$ua->get("http://www.url");
$content = $resp->content();
printf OUT "$content";

Однако вместо предполагаемой страницы скачивается ошибка с сайта:
You need to enable cookies in your browser!
Хотя в IE и Опере эта страница грузиться нормально.

Т.к. с куками я думаю все в порядке, то есть мысль, что сам сайт как-то проверяет мой браузер.
Есть ли у кого-нибудь мысли как сделать мой скрипт больше похожим на браузер?? и как решить проблему?

Название: вопрос по кукам (наверное)
Отправлено: cr4ck3r от 27 Марта 2006, 15:12:43

Попробуйте не сохранять куки в файле а хранить в памяти
$ua->cookie_jar({ });
мне такой прием помогал.

Название: вопрос по кукам (наверное)
Отправлено: юрий от 27 Марта 2006, 15:31:26

не, тоже самое..
может дело в самом агенте и нужно дать ему еще дополнительные параметры, хотя я уже добавлял.

Название: вопрос по кукам (наверное)
Отправлено: Алан от 27 Марта 2006, 16:38:26

А вообще без кук не пробывал страницу получить?

Название: вопрос по кукам (наверное)
Отправлено: cr4ck3r от 27 Марта 2006, 16:59:54

Тогда проследи коды ответов сервера - может там есть какие-либо редиректы - которые ты не учитываешь.