Redirect in Perl
Всем физкульт-привет из Сеула )
Возник вопрос по поводу Perl.
Каким образом можно организовать редирект запроса пользователя (браузера) на другую страницу?
Т.е задача - ко мне на определенную страницу приходит запрос, я выбираю всякие нужные мне данные и потом надо _автоматически_ переправить пользователя на другую страницу ( с результатами)
В ASP это было просто сделать - обычной командой Response.Redirect.
А как это делается в перл ?? Ежели кто знает или там ссылки в инете какие - you are welcome!! )
Возник вопрос по поводу Perl.
Каким образом можно организовать редирект запроса пользователя (браузера) на другую страницу?
Т.е задача - ко мне на определенную страницу приходит запрос, я выбираю всякие нужные мне данные и потом надо _автоматически_ переправить пользователя на другую страницу ( с результатами)
В ASP это было просто сделать - обычной командой Response.Redirect.
А как это делается в перл ?? Ежели кто знает или там ссылки в инете какие - you are welcome!! )
print ("<HTML><HEAD>\n");
print ("<META HTTP-EQUIV=refresh CONTENT='0;url=page.html'>\n");
print ("</HEAD></HTML>\n");
print ("<META HTTP-EQUIV=refresh CONTENT='0;url=page.html'>\n");
print ("</HEAD></HTML>\n");
Аноним
print "Location: url";
...
Аноним
print "Status: 302 Moved\n";
print "Location: page.html\n\n";
use CGI;
my $query = CGI->new();
print $query->redirect('somewhere');
my $query = CGI->new();
print $query->redirect('somewhere');