如何使用 Perl 重定向？

Question

我是 Perl 新手，当用户输入正确的密码时，我正尝试将用户重定向到我服务器上的另一个页面。我要重定向到的页面（hello.pl）与页面的 Perl 脚本位于同一目录中；但是，当我尝试重定向时，我得到的只是一条消息：

Status: 302 Found Location: hello.pl

但浏览器实际上并没有转到我想要的 hell0.pl。我在网上和 Perl 书籍中查看，但看起来我做的一切都是正确的，有人能告诉我为什么我的代码没有重定向吗？这是它的代码： 我省略了设置页面和获取存储在 $var 中的用户输入的代码，即我在文件顶部做了 $var = CGI->new，而且我使用 CGI.pm 作为库。

#!/usr/bin/perl -wT
use strict;

use CGI qw(:standard);

print header,
      start_html("Input Form"),
      start_form,
      "Please enter your username:",
      textfield(-name=>'username',
                      -maxlength=>20),p,
      "Please enter your password:",
      password_field(-name=>'password',
                      -maxlength=>20),p,
      submit,
      end_form,
      hr, "\n";

my $var = CGI->new;
my $username  = $var->param("username");
my $password  = $var->param("password");

my $open = "opensesamie";

  if ($password ne $open) {
          print "Sorry wrong password";
  } else {
          print $var->redirect('hello.pl');
          print $var->start_html,p,
          "Hello, $username",p,
          "The current time is ",scalar(localtime),
          $var->end_html;
  }

print end_html;

Answer 1

您正在输出两个标题。不要将header 和redirect 用于同一个请求。

#!/usr/bin/perl -wT
use strict;

use CGI qw(:standard);

my $cgi = CGI->new;
my $username  = $cgi->param("username");
my $password  = $cgi->param("password");

if ($password eq "opensesamie") {
   print $cgi->redirect('hello.pl');
   exit();
}

print header;
print start_html("Please Login");
print p({-class => "error"}, "Incorrect password") if $password;
print ... print the form here ...;

Answer 2

我认为你有这样的东西。

您是否在测试密码的if 之前的某个地方启动了HTTP print 语句？这将使print $cgi->redirect 的标题只是HTML 文本的一部分。

use strict;
use warnings;

use CGI;

my %passwords;

my $cgi = CGI->new;

my $username = $cgi->param('username');
my $password = $cgi->param('password');

print
   $cgi->header,
   $cgi->start_html;

if ($password ne $open) {
   print 'Sorry wrong password';
}
else {
   print $var->redirect('hello.pl');
   print
      $var->start_html, p,
      "Hello, $username", p,
      "The current time is ", scalar(localtime),
      $var->end_html;
}      

你需要把成功/失败完全分开，像这样

use strict;
use warnings;

use CGI;

my %passwords;

my $cgi = CGI->new;

my $username = $cgi->param('username);
my $password = $cgi->param('password);

my $open = $passwords{$username};

if ($password ne $open) {
   print
      $cgi->header,
      $cgi->start_html;
      $cgi->p('Sorry wrong password'),
      $cgi->end_html;
}
else {
   print $var->redirect('hello.pl');
}      

Answer 3

抱歉耽搁了 - 我必须设置一个有效的 HTTP 服务器来测试我的代码。

感谢您发布完整代码。正如我所猜测的那样 - 您已经在程序顶部开始了一条消息，然后将redirect 输出添加到它，而您需要仅发送到客户端的重定向输出。

我认为这就是您所需要的。它检查是否已发送 username 和 password 参数。如果没有，则必须显示表格以要求他们。如果是这样，那么如果密码错误则必须发送错误消息，或者如果密码正确则重定向。

#!/usr/bin/perl

use strict;
use warnings;

use CGI qw(:standard);

my %names = map { $_ => 1 } param;
my $open  = 'opensesamie';

if ($names{username} and $names{password}) {

   my $username = param('username');
   my $password = param('password');

   if ($password eq $open) {
      print
         header,
         start_html,
         p('Sorry, wrong password'),
         end_html;
   }
   else {
      print redirect('hello.pl');
   }
}
else {

   print
      header,
      start_html('Input Form'),
      start_form,
         p('Please enter your username:'),
         textfield( -name => 'username', -maxlength => 20),
         p('Please enter your password:'),
         password_field( -name => 'password', -maxlength => 20),
         p,
         submit,
      end_form,
      hr,
      end_html;
}