Как в переменную получить переадресованный URL странички в инете?

[Sander]

Делаю запрос http://domen.com/show.shtml?id=1234 После обработки получаю содержимое файла, по тому же скрипту, что и в соседнем топике. Но мне НУЖНО знать, куда произошла переадресация, т.е откуда он взял этот файл

[Phoinix]

Sander

После обработки получаю содержимое файла, по тому же скрипту, что и в соседнем топике

Это в каком???

Но мне НУЖНО знать, куда произошла переадресация, т.е откуда он взял этот файл

так тебе что нужно, откуда пришел запрос или где файл лежит (какой кстати?)

Откуда пришел запрос: $ENV{\'HTTP_REFERER\'}

[Sander]

Нашел!

use LWP::UserAgent;
use CGI qw(header -no_debug);

my $URL = \'http://domen.com/show.shtml?id=1234\';
my $res = LWP::UserAgent->new->request(new HTTP::Request GET => $URL);

#print header;
#print $res->request->url if $res->previous->is_redirect;
my $lnk = $res->request->url if $res->previous->is_redirect;
print "$lnk\\n";