Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Perl:ловля перенаправлений, куда перенаправляет 
:(
    Опции темы
Burdin
  Дата 7.7.2005, 07:08 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 5.7.2005
Где: Сахалин

Репутация: нет
Всего: нет
Кароче проблема такая:
имеем некий URL http://www.mydom.net/123.cgi
так вот он перекидывает на другой URL

ну вот я и не знаю как его можно посмотреть и далее перейти по нему
PM MAIL WWW ICQ   Вверх
korob2001
Дата 7.7.2005, 14:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Что-то я не понял, что именно тебе нужно посмотреть?


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Burdin
Дата 8.7.2005, 00:43 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 5.7.2005
Где: Сахалин

Репутация: нет
Всего: нет
нужен новый URL на который он меня перекинул чтобы подставить запросы типа GET
PM MAIL WWW ICQ   Вверх
Secandr
Дата 8.7.2005, 08:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Связист
****


Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

Репутация: нет
Всего: 39
Burdin отпарси ответ. Какие проблемы?
Добавлено @ 08:16
Вот например secandr.coltel.ru возвращает такой HTTP ответ:
Цитата
HTTP/1.x 302 Found
Date: Fri, 08 Jul 2005 05:15:04 GMT
Server: Apache/2.0.40 (Red Hat Linux)
Accept-Ranges: bytes
X-Powered-By: PHP/4.3.2
Location: http://vingrad.ru/@Secandr
Content-Length: 0
Connection: close
Content-Type: text/html

Добавлено @ 08:16
и как можно понять из ответа перенаправляет на http://vingrad.ru/@Secandr


--------------------
Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco
PM ICQ AOL   Вверх
Burdin
Дата 8.7.2005, 08:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 5.7.2005
Где: Сахалин

Репутация: нет
Всего: нет
каким образом
PM MAIL WWW ICQ   Вверх
Secandr
Дата 8.7.2005, 08:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Связист
****


Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

Репутация: нет
Всего: 39
Burdin как ты получаешь ответ от сервера?


--------------------
Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco
PM ICQ AOL   Вверх
korob2001
Дата 8.7.2005, 08:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Код

#!usr/bin/perl
use LWP::Simple;
my $url  = "url страницы которая тебя перенаправляет";
my @head = head( $url );
print join("\n", @head);


Это сообщение отредактировал(а) korob2001 - 8.7.2005, 08:57


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Burdin
Дата 10.7.2005, 07:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 5.7.2005
Где: Сахалин

Репутация: нет
Всего: нет
вот какой ответ:
text/html
Apache 1.3.33
вот и все!!!
пробовал на LWP::UserAgent таже самая история
и на адрес secandr.coltel.ru почти тотже ответ

Это сообщение отредактировал(а) Burdin - 10.7.2005, 07:17
PM MAIL WWW ICQ   Вверх
Secandr
Дата 10.7.2005, 09:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Связист
****


Профиль
Группа: Экс. модератор
Сообщений: 4043
Регистрация: 3.8.2003
Где: Russia, Volgograd

Репутация: нет
Всего: 39
Burdin я с LWP знаком мало, так что мучить придётся korob2001


--------------------
Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco
PM ICQ AOL   Вверх
korob2001
Дата 10.7.2005, 23:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
Заголовки ты получаешь только те, которые тебе посылает сервер. Но думаю это ещё не всё, т.е. не невозможно. Я напился сегодня, голова кругом идёт smile, сынишке 2 года. Так что вернусь завтра.


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
sharq
Дата 13.7.2005, 00:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28
Burdin можешь сформулировать проблему конкретнее, а-то очень трудно тебя понять...



korob2001 поздравляю тебя!!! Привет сынишке, подрастающему перл-кодеру. smile

Это сообщение отредактировал(а) sharq - 13.7.2005, 00:29


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
korob2001
Дата 13.7.2005, 01:06 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 13
Всего: 61
sharq - СПАСИБО. smile


--------------------
"Время проходит", - привыкли говорить вы по неверному пониманию. 
"Время стоит - проходите вы".
PM MAIL WWW ICQ MSN   Вверх
Burdin
Дата 13.7.2005, 03:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 15
Регистрация: 5.7.2005
Где: Сахалин

Репутация: нет
Всего: нет
есть некий URL вида http://www.mydoom666.com/cgi-bin/123.pl
когда переходишь на этот адрес он генерирует новый скрипт и делает редирект на него.
например: http://www.mydoom666.com/cgi-bin/EndfRdl.pl
и к этому новому адресу надо добавить запрос GET например: http://www.mydoom666.com/cgi-bin/EndfRdl.p...on=1&edit=print

и http://www.mydoom666.com/cgi-bin/EndfRdl.p...on=1&edit=print
html с картинакми надо сохранить на диск
максимум я добился того что смог только сохранить http://www.mydoom666.com/cgi-bin/EndfRdl.pl т.е. на который он перекидывает

korob2001 ну что тогда и я присоеденяюсь к поздравлению!!!
PM MAIL WWW ICQ   Вверх
sharq
Дата 13.7.2005, 12:12 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 2
Всего: 28
Burdin если я тебя правильно понил, то
Код
use strict;
use LWP::Simple;
use Fcntl qw(:flock);

$| = 1;

sub save_document($$) {
    my ($file, $data) = @_;

    my $op = open  FILE, ">$file";
    if ($op) {
     flock FILE, LOCK_EX;
     print FILE $data;
     flock FILE, LOCK_UN;
     close FILE;
     return 1
    } else {
     return
    }
}

my $url  = 'http://www.mydoom666.com/cgi-bin/EndfRdl.pl?action=1&edit=print';
my $path = 'C:/1.htm';

my $doc = get $url;

if ($doc) {
    if ( save_document($path, $doc) ) {
     print "ok"
    } else {
     print "can't create file"
    }
} else {
    print "false"
}



smile

Это сообщение отредактировал(а) sharq - 13.7.2005, 12:14


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl: CGI программирование"
korob2001
sharq
  • В этом разделе обсуждаются вопросы относящиеся только к CGI программированию
  • Если ваш вопрос не относится к системному или CGI программированию, задавайте его в общем разделе
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", качать здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: разработка для Web | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0527 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.