A very common technique used by many developers is to redirect the user to another URL or the referrer URL after doing some work e.g. processing a form. In Perl all headers have to printed before any actual content is outputed.
A very simple way of redirecting to another URL
Doing the same thing using the CGI module.
You may also pass the HTTP status code, sometimes it's needed e.g. if you pass a 302 status code, the URL of the page in the browser remains the same. Here's all the status codes used for redirecting a page.
So, here's how we redirect with the status.
A very simple way of redirecting to another URL
Code: Perl
#!/usr/bin/perl
print "Content-Type: text/html\n";
print "Location: http://www.go4expert.com/no-page-here.html\n\n";
Doing the same thing using the CGI module.
Code: Perl
#!/usr/bin/perl
use CGI;
my $cgi = new CGI;
print $cgi->header(-location => q[http://www.go4expert.com/no-page-here.html]);
You may also pass the HTTP status code, sometimes it's needed e.g. if you pass a 302 status code, the URL of the page in the browser remains the same. Here's all the status codes used for redirecting a page.
Code:
301 Moved Permanently 302 Found 303 See Other
Code: Perl
#!/usr/bin/perl
use CGI;
my $cgi = new CGI;
print $cgi->header(-location => q[http://www.go4expert.com/no-page-here.html], -status=>301);
sundeep.kumar
likes this
