我对 Perl 相当陌生。
我有一个读入 script.pl 并进行验证检查等的表单。
一旦完成显示验证，我怎样才能让它在几秒钟后自动循环回到主页？
我尝试使用以下方法，但没有奏效：
use strict;
use warnings;
my $url = "http://google.com";
print "Location: $url\n\n";
一个 HTML 的例子是：<META HTTP-EQUIV="REFRESH" CONTENT="10;URL=index.htm">
这是我所拥有的：
#!/usr/bin/perl
use strict;
use warnings;
my $url = "google.com";;
print "Location: $url\n\n";
print "Content-type: text/html\n\n";
%form=&parse_form();
etc....etc...
您可以使用以下替代方法：
use strict;
use warnings;
my $url = "http://google.com";
print "Content-type: text/html\n\n";
print qq[
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>Redirecting...</title>
<meta HTTP-EQUIV="REFRESH" CONTENT="10;URL=$url">
</head>
<body>
</body>
</html>
];
以下是有效的，应该可以正常工作：
use strict;
use warnings;
my $url = "http://google.com";
print "Location: $url\n\n";