- отлов редиректа, 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
|