Redirecting the perl script

by 
      Using the javascript in Perl we can redirect the page from perl file to the another perl file

       Step 1  use CGI qw(:standard);

       Step 2   my $JSCRIPT=<<EOF;

                function redirect_GMM()
                {
                window.location.href="http://localhost/cgi-bin/GMW/GMM.pl";
                }   
                EOF
                 ;  
       Step 3  my $q =CGI->new;
               print $q->header('text/html');
               print $q->start_html(-title=>'JJ',-script=>$JSCRIPT);
               print $q->h5('JJ login page');
               print $q->end_html; 

       Step 4   print button(
                         -name =>'GOOD',
                         -value    =>'GOOD',
                         -onclick=>'redirect_GMM()'
                          );

         This code will surely redirect the page when you press the button.

More Related Contents:

  1. Failing to install MIME::Base64 using cpan [closed]
  2. Declaring a 2D coordinate in Perl / C / C++ [closed]
  3. how to use multiple IP’s in perl script
  4. How can I use a variable as a variable name in Perl?
  5. How can I use a new Perl module without install permissions?
  6. When should I use the & to call a Perl subroutine?
  7. What’s the difference between my ($variableName) and my $variableName in Perl?
  8. How can I pass command-line arguments to a Perl program?
  9. How can I hook into Perl’s print?
  10. How can I combine hashes in Perl?
  11. Why do my Perl tests fail with use encoding ‘utf8’?
  12. What is the difference between my and local in Perl?
  13. Why does my Perl script exit with 137?
  14. How to extrace pg_backend_pid from postgresql in shell script and pass it to another process?
  15. Perl read line by line
  16. What is the difference between Perl’s ( or, and ) and ( ||, && ) short-circuit operators?
  17. How do I change, delete, or insert a line in a file, or append to the beginning of a file in Perl?
  18. How can I install a specific version of a set of Perl modules?
  19. Obtain a switch/case behaviour in Perl 5
  20. How do I extract the domain out of an URL?
  21. Why does $foo->{bar} autovivify but %$foo doesn’t?
  22. How do I tell what type of value is in a Perl variable?
  23. What should I use for a Perl script’s shebang line?
  24. How can I find memory leaks in long-running Perl program?
  25. Why do Perl variables need to start with $, %,@ (sigils)?
  26. Print lines from one file that are not contained in another file
  27. Perl DBD::Oracle Module installation
  28. Nested subroutines and Scoping in Perl
  29. Explain the deviousness of the Perl “preamble”
  30. Why doesn’t Perl’s each() iterate through the entire hash the second time?

Leave a Comment