Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: разработка для Web > Redirect

Автор: korob2001 4.9.2003, 17:23

Всем доброго времени суток!
Вот возник такой вопрос относительно функции redirect модуля CGI.pm.
Вопрос:
Возможно=ли перенаправить пользователя на определённую страничку используя redirect, через определённое время (например через 5 сек.)?
Если да и если вас не затруднит, пожалуйста приведите пример.
В документации к CGI.pm ничего об этом не сказано.

Заранее благодарен,
Денис

Автор: Nobody 4.9.2003, 17:36

Код


<html>
<head>
<meta http-equiv="refresh" content="5; url=http://www.somewhere.ru">
</head>
<body>
</body>
</html>

А теперь сделай то же самое с помощью CGI.

Автор: korob2001 4.9.2003, 18:10

Цитата

Тоже самое с помощью CGI.pm

Код


#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
print $cgi->header( -charset => 'Windows-1251',
                               -Refresh => '5; URL=http://denstelen.hop.ru' ),
          $cgi->start_html( -title   => 'REFRESH' ),
            $cgi->h1("Ожидаем!"),
          $cgi->end_html();

Большое спасибо. А редиректом такого перенаправления нельзя сделать?

Автор: Nobody 4.9.2003, 19:55

Метод redirect просто пишет HTTP-заголовок Location. Там таймаут никак не задается.

Автор: korob2001 4.9.2003, 20:49

Большое спасибо.