Redirecting Browser to a URI

Perl Tutorials - Herong's Tutorial Examples

∟Redirecting Browser to a URI

This section provides a tutorial example on how to redirect the browser to go to a new URI with the redirect() method in the CGI.pm module.

CGI.pm also allows us to set a redirect URI in the HTTP response header. This tells the browser to make a subsequent request with the redirect URI to get the response content. This technique is used commonly by Web servers to inform browsers that a Web page has been moved to a new URI address.

The CGI.pm module offers the redirect() method to set the redirect URI to the returning HTTP response header. Here is a simple example Perl CGI script: CGI-pm-Redirect-URI.pl:

#!c:/local/perl/bin/perl.exe
#- CGI-pm-Redirect-URI.pl
#- Copyright (c) HerongYang.com. All Rights Reserved.

   use CGI;
   use CGI::Cookie;

   $query = CGI->new();

#- Getting getting the redirected URI as a parameter from the request
   $uri = $query->param('uri');

   if ($uri) {

#-    Setting redirect URI into the response
      print $query->redirect(-uri=>$uri, -status=>'302 Found');
   } else {
      print $query->header();
      print $query->start_html(-title=>'CGI-pm-Redirect-URI.pl Failed');
      print $query->p('Not redirected. Missing "uri" parameter.');
      print $query->end_html();
   }

Copy CGI-pm-Server-Info.pl to C:\local\apache\htdocs.

First, enter this URI into your browser address: http://localhost/CGI-pm-Redirect-URI.pl. You should see the following message with no redirect.

Not redirected. Missing "uri" parameter.

Next, enter this URI into your browser address: http://localhost/CGI-pm-Redirect-URI.pl?uri=https://www.herongyang.com/. You should see that the browser is redirected my personal home page.