如何使用Perl的CGI.pm发出HTTP重定向？

Question

我想执行HTTP重定向，但我目前正在进行的方式不起作用。当我尝试重定向时，它只打印状态代码和位置标题：

my $q = new CGI;
q->redirect(" http://www.google.com ");

Answer 1

您是否需要顶部的CGI？

use CGI;
my $query=new CGI;
print $query->redirect('http://www.foo.com');

这对我有用

Answer 2

网址周围是否有空格？根据CGI库的功能，可能会出现问题。我可以看到它将您的网址转换为％20http：//www.google.com%20，但无法正确加载...

编辑：除了直接传递给浏览器之外，它在测试时似乎没有做任何有害的事情。另一方面，您在代码中遗漏了use，$和print - 这是您正在尝试的实际代码还是其他内容？

Answer 3

我弄清楚问题是什么，我在打印200 ok状态后尝试重定向，这会导致我将URL打印到页面而不是重定向到它