在CGI脚本中使用HTTP状态代码的Perl CGI

Question

我在CGI脚本中验证了以下验证GET方法并返回405 HTTP状态代码（如果未使用GET方法）。不幸的是，当使用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 
{ 
    print $cgi->header(
    -type=>'text/plain', 
    -status=> '405 Method Not Allowed' 
); 
} 

，但是当我在客户端和打印STATUS_CODE使用LWP它仍然给200 OK，当我打印的内容是打印状态：405

代码我使用在客户端：

use LWP; 
use HTTP:Request::Common; 

my $ua = LWP::UserAgent->new; 
my $req =PUT("/path/to/request"); 

my $result = $ua->request($req); 

if($result->is_success) { 
    print "HTTP RESPONSE CODE:" , $result->status_line; 
    print $result->decoded_content; 
} 

从上面的代码会打印成功

HTTP RESPONSE CODE: 200 OK 
Status: 405 Method Not Allowed 
"some text regarding why method not allowed" 
Requested Method Not allowed 

以下信息，我如何能匹配ST atus_line与来自CGI标题的值相关吗？

Answer 1

每本similar SO post，你可以尝试：

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

，而不是你：

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