Question

我在CGI脚本中进行了以下验证，该脚本将检查GET方法并在未使用GET方法时返回405 HTTP状态代码。不幸的是，当使用POST或PUT时，它仍然会返回200状态OK。

my ($buffer);
# Read in text
$ENV{'REQUEST_METHOD'} =~ tr/a-z/A-Z/;
if ($ENV{'REQUEST_METHOD'} eq "GET")
{
    $buffer = $ENV{'QUERY_STRING'};
}
else
{
    $cgi->$header->status('405 Method Not Allowed')
    print $cgi->header('text/plain');
}

我还是CGI编程的新手，所以我想这里的某个人可能会因为使用CGI和HTTP状态返回而烦恼。如果提供了一个非常好的CGI文档，因为大多数通过搜索返回的是CPAN（已经读过几次）和非面向对象的旧教程。

Answer 1

CGI的cpan docs超过enought 。如果您希望新教程不使用CGI，请使用MVC框架之一（Catalyst，Dancer2，Mojo等）。

如果要更改，您可以发布405标题：

$cgi->$header->status('405 Method Not Allowed');
print $cgi->header('text/plain');

到此：

print $cgi->header(
   -type=>'text/plain',
   -status=> '405 Method Not Allowed'
);

具有HTTP状态代码的Perl CGI

1 个答案: