есть скрипт в интернете, который при обращении к нему редиректит на разные 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);

• отлов редиректа,ctax, 09:03 , 12-Фев-07
  • отлов редиректа,ctax, 09:36 , 12-Фев-07
    • отлов редиректа,ctax, 09:52 , 12-Фев-07

>есть скрипт в интернете, который при обращении к нему редиректит на разные
>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:

а нет ни фига, пардон

>а нет ни фига, пардон

Можно отредактировать модуль 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