форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Пред. тема | След. тема
Форумы Программирование под UNIX (Public)
Изначальное сообщение		[Проследить за развитием треда]

"отлов редиректа"

Сообщение от Satell (ok) on 11-Фев-07, 10:34

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

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Сообщения по теме

[Сортировка по времени, UBB]

1. "отлов редиректа"

Сообщение от ctax (??) on 12-Фев-07, 09:03

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

Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	2. "отлов редиректа"
	Сообщение от ctax (??) on 12-Фев-07, 09:36
	а нет ни фига, пардон
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

	3. "отлов редиректа"
	Сообщение от ctax (??) on 12-Фев-07, 09:52
	>а нет ни фига, пардон Можно отредактировать модуль 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
	Высказать мнение | Ответить | Правка | Наверх | Cообщить модератору

Архив | Удалить	Индекс форумов | Темы | Пред. тема | След. тема
Оцените тред (1=ужас, 5=супер)? [ 1 | 2 | 3 | 4 | 5 ] [Рекомендовать для помещения в FAQ]