Сообщения

1

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

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

2

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

« : 27 Июля 2004, 09:59:35 »

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