Perl-CGI mit HTTP-Statuscodes

Ich habe die folgende Überprüfung in einem CGI-Skript, das nach der GET-Methode sucht und einen 405-HTTP-Statuscode zurückgibt, wenn die GET-Methode nicht verwendet wird. Leider wird bei Verwendung von POST oder PUT immer noch der Status 200 OK zurückgegeben.

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');
}

Ich bin noch ein Neuling in der CGI-Programmierung, daher habe ich mir gedacht, dass mir hier jemand die Arbeit mit CGI- und HTTP-Statusrückgaben erklären könnte. Wenn ein gutes CGI-Dokument zur Verfügung gestellt wird, wäre das fantastisch, da die meisten Suchergebnisse CPAN (bereits einige Male gelesen) und wirklich alte Tutorials sind, die nicht objektorientiert sind.

Antworten auf die Frage(1)

Ihre Antwort auf die Frage