1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 

     6 my ($Daten, $value,$name, $text,$anhang,$input,$q,$key,$wert,$param,%result);

     7 my $i=0;

     8 my %Formular;

     9 my @Formularfelder;

    10 

    11 $anhang= $ENV{'QUERY_STRING'};

    12 read(STDIN, $Daten, $ENV{'CONTENT_LENGTH'});

    13 &verarbeiten;

    14 sub verarbeiten {

    15 @Formularfelder = split(/&/, $Daten);

    16 foreach my $Feld (@Formularfelder) {

    17   ($name, $value) = split(/=/, $Feld);

    18   $value =~ tr/+/ /;

    19   $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;

    20   $Formular{$name} = $value;

    21  }

    22 }

    23 my @schluessel=keys(%Formular);

    24 my @values=values(%Formular);

    25 open (OUT,">test");

    26 print OUT ("\@schluessel: @schluessel\n\@values: @values\n");

    27 close OUT;

    28 # Folgend SSL-Script