VPF::как программно перейти по ссылке?

kb-nn

Дата 22.4.2005, 14:19 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 227
Регистрация: 23.12.2003
Где: Нижний Новгород

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

подскажите, пожалуйста.

как можно программно перейти по какому- то адресу?
наподобие header(location.....) в PHP?

Secandr

Дата 22.4.2005, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Связист

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

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

kb-nn нужно отправить заголовок location:<url>
делается это при помощи простого print

--------------------

Мышки плакали, кололись, но продолжали жрать кактусы (с) cisco

korob2001

Дата 22.4.2005, 14:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Без использования сторонних модулей:

Код


print "Location: http://yandex.ru\n\n";

С использованием CGI.pm

Код


#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print $cgi->redirect( -uri => 'http://yandex.ru' );

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Guest

Дата 16.11.2005, 13:17 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

[move]print неработает!!!!!!!!!!!!!!!

korob2001

Дата 16.11.2005, 13:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

Работает

Код


print "Location: http://yandex.ru\n\n";

В конце нужно обязательно 2 раза указать перевод строки \n\n, что по сути и означает конец заголовка.

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

sharq

Дата 16.11.2005, 16:57 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

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

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

Цитата(korob2001 @ 16.11.2005, 14:24)

В конце нужно обязательно 2 раза указать перевод строки \n\n, что по сути и означает конец заголовка.

Причем

Код


print "Location: http://yandex.ru\n\n";

нужно писать до всяких там заголовков!
иначе "не сработает". smile

Код


print "Content-type: text/html\n\n";
... 
print "Location: http://yandex.ru\n\n";

Это не правильно!

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

korob2001

Дата 16.11.2005, 17:28 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

sharq - так это и есть заголовок. Если нужен указать Content, то попробуй сделать это так.

Код


print "Content-type: text/html\n"; # Обрати внимание на кол-во переводов строки
print "Location: http://yandex.ru\n\n"; # Здесь тоже

Вобщем, весь заголовок разделяется \n, а заканчивается \n\n

Это сообщение отредактировал(а) korob2001 - 16.11.2005, 17:29

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

sharq

Дата 17.11.2005, 11:51 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

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

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

korob2001 спасибо тебе большое smile

Я-то знаю и понимаю это.

Написал, т.к. это распространенная ошибка.

smile

--------------------

[color=gray]There's More Than One Way To Do It[/color]

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