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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> perl: перенаправление на заданый URL 
:(
    Опции темы
fanat1k
Дата 17.11.2006, 12:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



Ищу аналог функции php header("location:/my_url.php") для предотвращения повторной записи в базу (данные передаются методом GET и при обновлении страницы записываются повторно). Вариант проверки на существование даной записи в базе не предлагать.
Использую modperl и модуль Apache.
Заранее спасибо.
PM MAIL   Вверх
JUmPER
Дата 17.11.2006, 14:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 3



Код

use CGI qw(:cgi);

print redirect(-URL=>'/my_url.php');

--------------------
Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной
PM MAIL   Вверх
GoodBoy
Дата 17.11.2006, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83



JUmPER, зачем такой тяжелый модель подгружать? Проще HTTP-заголовок отправить:
Код
print "Status: 302\nLocation: /my_url.php\n\n";




--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
JUmPER
Дата 17.11.2006, 14:37 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


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

Репутация: нет
Всего: 3



GoodBoy, я просто предоставил наиболее удобный способ (тут сразу и куки и ещё кучу чего можно добавить)
--------------------
Существует 10 типов людей: те, которые понимают двоичную систему, и те, которые ее не понимаютСуществует 10 типов людей: те, кто понимают троичную систему, те, кто ее не понимают и те, кто путает ее с двоичной
PM MAIL   Вверх
GoodBoy
Дата 17.11.2006, 14:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83



JUmPER, не согласен, что твой способ более удобен. А то, что он НАМНОГО более ресурсоёмок - 100%!

Добавлено @ 14:40 
Кстати, куки и через HTTP-заголовки прекрасно можно установить! smile


--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
fanat1k
Дата 17.11.2006, 15:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



модуль CGI использовать нельзя (не от меня зависит). Только модуль Apache.    
вот это: 
print "Status: 302\nLocation: /my_url.php\n\n"; работает как обычный print - просто выводит все в браузер.
PM MAIL   Вверх
GoodBoy
Дата 17.11.2006, 15:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Главный джедай
****


Профиль
Группа: Модератор
Сообщений: 3886
Регистрация: 8.1.2003
Где: КМВ

Репутация: 2
Всего: 83



Цитата(fanat1k @  17.11.2006,  15:09 Найти цитируемый пост)
вот это: 
print "Status: 302\nLocation: /my_url.php\n\n"; работает как обычный print - просто выводит все в браузер. 

в смысле??  выводит это в браузер текстом??? Если да, то значит где-то выше по тескту программы уже есть отправка браузеру заголовка:
Код
print "Content-type: text/html\n\n";

и этот заголовок нужно убрать...


--------------------
Чем дальше в лес, тем толще партизаны...

Цитата(igorold @  1.5.2016,  17:40 Найти цитируемый пост)
Индейцы не обратили внимания на поток беженцев из Европы… Теперь они живут в резервациях. 
PM MAIL   Вверх
fanat1k
Дата 17.11.2006, 15:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет



#!/usr/bin/perl -w
use strict;

use Apache();

my $r = Apache->request;
$r->content_type('text/html');
$r->send_http_header;
$r->print("Этот текст отображается в браузере");
..........................
if ($my_var) {
пишем в базу;
! вот тут надо команду "загрузить сраничку test.html";
}
...........................
я в этом деле новичок, запутался.
пробовал без модуля Apache;
#!/usr/bin/perl -w
use strict;
print "Status: 302\nLocation: /my_url.php\n\n"; - появляется окошко загрузки (download) скрипта.
оно всегда появляется, пока не сделать:
use Apache();
my $r = Apache->request;
$r->content_type('text/html');
$r->send_http_header;

PM MAIL   Вверх
korob2001
Дата 19.11.2006, 15:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 31
Всего: 61



Попробуй так:
Код

#!/usr/bin/perl
print "Content-type: text/html\nLocation: /my_url.php\n\n";



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


Новичок



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

Репутация: нет
Всего: нет



То же самое - появляется окошко загрузки (download) скрипта.

В текущей задаче обошелся проверкой существования записи в таблице.
Спасибо всем кто отозвался! Думаю что у меня проблемы из-за mod_perl и Apache, потому как с использованием CGI все работает.
В процессе изучения надеюсь разберусь smile
PM MAIL   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




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


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

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