Perl CGI с HTTP-кодами состояния
У меня есть следующая проверка в сценарии CGI, который проверит метод GET и вернет код состояния HTTP 405, если метод GET не используется. К сожалению, он по-прежнему возвращает 200 статус OK при использовании POST или PUT.
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 (уже прочитанный несколько раз) и действительно старые учебники, которые не являются объектно-ориентированными.