1 #!/usr/bin/perl

     2 

     3 use strict;

     4 use warnings;

     5 

     6 my (

     7     $Daten, $value, $name, $text,  $anhang, $input,

     8     $q,     $key,   $wert, $param, %result

     9 );

    10 my $i = 0;

    11 my %Formular;

    12 my @Formularfelder;

    13 

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

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

    16 &verarbeiten;

    17 

    18 sub verarbeiten {

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

    20     foreach my $Feld (@Formularfelder) {

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

    22         $value =~ tr/+/ /;

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

    24         $Formular{$name} = $value;

    25     }

    26 }

    27 my @schluessel = keys(%Formular);

    28 my @values     = values(%Formular);

    29 open( OUT, ">test" );

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

    31 close OUT;

    32 

    33 # Folgend SSL-Script