Formularausw. mit POST innerh. desselben CGI's unmöglich?

[Thomas]

Muss an ein paar Dingen nochmal nachhaken.
Der Grundgedanke von mir ist, eine Subroutine zu verwenden, die, egal ob die Daten mit POST oder GET ankommen aufzurufen, um dann die Daten über return in meinem Haupt-Perl-Script weiterverwenden zu können., quasi:

<form action="das_gleiche_script.pl" method=post>
       <input type="radio" name="Lernerfolg"  value=0>sehr viel
       <input type="radio" name="Lernerfolg"  value=1>viel
       <input type="radio" name="Lernerfolg"  value=2 selected>ausreichend
    <input type=submit value="submit">
    <input type=reset value="reset">
</form>

%hash_result=&parse_form;

sub parse_form()
{
  if ($ENV{'REQUEST_METHOD'} eq "GET")
 {
   $buffer = $ENV{'QUERY_STRING'};
 }
 else
 {
   read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
 }

@nvpairs = split(/&/,$buffer);
 # Ich teile den Datenstring in einzelne Teile.
 foreach $pair (@nvpairs)
 {
   # Ich decodiere jedes der Teil
   ($name, $value) = split(/=/, $pair);
    $value =~ tr/+/ /;
    $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
    $in{$name} = $value;
 }
 return %in;
}