VPF::Переадресация на один из заданных адресов

Mizax

Дата 24.3.2006, 23:26 (ссылка)

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

Загрузка ...

Новичок

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

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

Как сделать скрипт переадресующий пользователя на один из адресов из заданного списка?

nitr

Дата 25.3.2006, 03:06 (ссылка)

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

Загрузка ...

Эксперт

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

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

Конкретно! В Веб? Перенаправление браузера? smile

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

I love ArchLinux

Kiber_rat

Дата 25.3.2006, 18:13 (ссылка)

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

Загрузка ...

MACMANIAC

Профиль
Группа: Участник
Сообщений: 276
Регистрация: 18.4.2002
Где: Ashdod, Israel

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

Есть несколько способов. С использованием тэга <META>, опциии в .htaccess, java script или передачей специального заголовка. Поскольку вопрос задан в PERL то вот вариант с использованием модуля CGI:

код Perl

#!/usr/bin/perl

use strict;

use warnings;

use CGI qw(:standard);

print redirect('http://redirect.to.url');

А что касается списка то тоже довольно просто. Предположим что куда переправлять пользователя зависит от переданного параметра url скрипту redirect.cgi:

код Perl

10:

11:

#!/usr/bin/perl

use strict;

use warnings;

use CGI qw(:standard);

my %V = CGI::Vars();

my @urls = (

'http://one.url.com',

'http://two.url.com',

'http://three.url.com',

);

print redirect($urls[$V{url}]);

Соответственно, что бы отправить юзера на второй URL он должен ввести адрес http://your.site.com/cgi-bin/redirect.cgi?url=1

Это сообщение отредактировал(а) Kiber_rat - 25.3.2006, 18:21

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

Best regards!
@..@_____Ku6ep
=*=______\______KPbIC

код Perl

print join "",map{chr}(split/(\w{2})/,hex(int(2175.57302796298**2)))

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