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

时间:2013-11-11 17:39:49

标签: perl cgi

我将数据从A.cgi发送到B.cgiB.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。如何使重定向工作?

2 个答案:

答案 0 :(得分:2)

Location:是标题,标题必须在所有普通输出之前出现,这可能是你的问题。但是,无论如何,手动执行此操作都是非常复杂的,您最好使用redirect function of CGI.pm

答案 1 :(得分:1)

使用CGI的redirect方法:

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