如何在Perl中同时重定向和传递参数？

Question

我很难弄清楚如何重定向到另一个页面，同时在Perl中传递一个参数。我尝试了CGI.pm库和Perl书籍，但我发现只有重定向的例子没有任何附加参数。如果用户输入正确的密码，我想要做的是重定向到另一个页面，但我想在另一页上显示他的名字，所以我尝试了：

$cgi->redirect('myothersite', value="username"); 

在另一个网站上，我试图通过以下方式获得该值：

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

或

 my %name = map { $_ => 1 } param;

    if ($name{username}) {
      my $username  = param("username");
      print   
          header,
          start_html,
          "Hello, $name",p,
          etc...

以及使其成功的各种其他方式，但这只会给我带来错误。有谁知道怎么做？

Answer 1

只需在查询字符串中包含该参数：

$cgi->redirect("myothersite?username=$username"); 

或者，您可以将键/值保存在CGI::Session或类似的构造中。