Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Общие вопросы > Переадресация на один из заданных адресов


Автор: Mizax 24.3.2006, 23:26
Как сделать скрипт переадресующий пользователя на один из адресов из заданного списка?

Автор: nitr 25.3.2006, 03:06
Конкретно! В Веб? Перенаправление браузера? smile

Автор: Kiber_rat 25.3.2006, 18:13
Есть несколько способов. С использованием тэга <META>, опциии в .htaccess, java script или передачей специального заголовка. Поскольку вопрос задан в PERL то вот вариант с использованием модуля CGI:
Код
#!/usr/bin/perl
use strict;
use warnings;
use CGI qw(:standard);
print redirect('http://redirect.to.url');
А что касается списка то тоже довольно просто. Предположим что куда переправлять пользователя зависит от переданного параметра url скрипту redirect.cgi:
Код
#!/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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)