perl - 如何从一个 CGI 重定向到另一个

Question

我将数据从发送A.cgi到B.cgi。B.cgi更新数据库中的数据并应该重定向回A.cgi，此时A.cgi应该显示更新的数据。我在数据库更新后立即添加了以下代码来B.cgi执行重定向：

$url = "http://Travel/cgi-bin/A.cgi/";
print "Location: $url\n\n";
exit();

成功更新数据库后，页面简单打印

Location: http://Travel/cgi-bin/A.cgi/

并保持不变B.cgi，而不会被重定向到A.cgi. 我怎样才能使重定向工作？

score 2 · Accepted Answer

Location:是一个标题，标题必须在所有普通输出之前，这可能是你的问题。但是无论如何手动执行此操作都不必要地复杂，您最好使用CGI.pm 的重定向功能

score 1 · Accepted Answer

使用 CGI 的重定向方法：

my $url = "http://Travel/cgi-bin/A.cgi";
my $q = CGI->new;
print $q->redirect($url);

2 回答 2