Автор Тема: вопрос по кукам (наверное)  (Прочитано 3881 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн юрий

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
вопрос по кукам (наверное)
« : 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

  • Фанат Perl
  • Постоялец
  • ***
  • Сообщений: 146
  • +0/-0
  • 2
    • Просмотр профиля
    • http://perlmonks.org.ru
вопрос по кукам (наверное)
« Ответ #1 : 27 Марта 2006, 15:12:43 »
Попробуйте не сохранять куки в файле а хранить в памяти
$ua->cookie_jar({ });
мне такой прием помогал.
Ворота в perl - perlmonks.org.ru

Оффлайн юрий

  • Заглянувший
  • Новичок
  • *
  • Сообщений: 2
  • +0/-0
  • 0
    • Просмотр профиля
    • http://
вопрос по кукам (наверное)
« Ответ #2 : 27 Марта 2006, 15:31:26 »
не, тоже самое..
может дело в самом агенте и нужно дать ему еще дополнительные параметры, хотя я уже добавлял.

Оффлайн Алан

  • Завсегдатай
  • Новичок
  • *
  • Сообщений: 31
  • +0/-0
  • 0
    • Просмотр профиля
    • http://alanrin.com
вопрос по кукам (наверное)
« Ответ #3 : 27 Марта 2006, 16:38:26 »
А вообще без кук не пробывал страницу получить?

Оффлайн cr4ck3r

  • Фанат Perl
  • Постоялец
  • ***
  • Сообщений: 146
  • +0/-0
  • 2
    • Просмотр профиля
    • http://perlmonks.org.ru
вопрос по кукам (наверное)
« Ответ #4 : 27 Марта 2006, 16:59:54 »
Тогда проследи коды ответов сервера - может там есть какие-либо редиректы - которые ты не учитываешь.
Ворота в perl - perlmonks.org.ru

 

Sitemap 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28