Есть несколько способов. С использованием тэга <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 |