Forum Webscript.Ru

Программирование => Perl => Тема начата: Sander от 27 Июля 2004, 09:59:35

Название: Как в переменную получить переадресованный URL странички в инете?
Отправлено: Sander от 27 Июля 2004, 09:59:35

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

Название: Как в переменную получить переадресованный URL странички в инете?
Отправлено: Phoinix от 27 Июля 2004, 10:18:14

Sander

Цитировать

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

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

Цитировать

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

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

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

Название: Как в переменную получить переадресованный URL странички в инете?
Отправлено: Sander от 27 Июля 2004, 10:40:10

Нашел!

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";