The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]




Версия для распечатки Пред. тема | След. тема
Новые ответы [ Отслеживать ]
отлов редиректа, !*! Satell, 11-Фев-07, 10:34  [смотреть все]
  • отлов редиректа, !*! ctax, 09:03 , 12-Фев-07 (1)
    >есть скрипт в интернете, который при обращении к нему редиректит на разные
    >url-ы, вопрос - можно ли прочитать эти url-ы как-нибудь, используя LWP?
    >
    >т.е. делаю get запрос на один url, меня редиректит на другой и
    >как этот другой прочитать, может он в какую-нибудь переменную записывается??
    >
    >$url='url скрипта который редиректит';
    >$ua=LWP::UserAgent->new;
    >$h1=new HTTP::Headers ...;
    >$req1= new HTTP::Request ('GET', $url, $h1);
    >$ua->request($req1);

    Прочитайте что написано в Location:

    • отлов редиректа, !*! ctax, 09:36 , 12-Фев-07 (2)
      а нет ни фига, пардон
      • отлов редиректа, !*! ctax, 09:52 , 12-Фев-07 (3)
        >а нет ни фига, пардон

        Можно отредактировать модуль LWP::Simple

        В строке

        use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION);
        добавте свою переменную например $SPEC:
        use vars qw($ua %loop_check $FULL_LWP @EXPORT @EXPORT_OK $VERSION $SPEC);

        потом внутри функции sub _trivial_http_get
        после строки my $netloc = $host; добавить $SPEC=$netloc;

        В скрипте эта переменная будет всегда доступна $LWP::Simple::SPEC




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2024 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру