Formular

[Matti Maekitalo]

use Mosche;

#!c:\perl\bin\perl.exe

#!c:\perl\bin\perl.exe -w

read(STDIN, my $Daten, $ENV{'CONTENT_LENGTH'});
my @Formularfelder = split(/&/, $Daten);
my ($Feld, $Name, $Wert);
my %Formular;
foreach $Feld (@Formularfelder) {
  (my $Name, my $Wert) = split(/=/, $Feld);
  $Wert =~ tr/+/ /;
  $Wert =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg;
  $Wert =~ s/</&lt;/g;
  $Wert =~ s/>/&gt;/g;
  $Formular{$Name} = $Wert;
 }

Wenn du schon CGI::Carp verwendest, warum dann nicht auch CGI? Dann kannst den gesamten %Formular-Kram in die Tonne kloppen.

use CGI;
   my $cgi = new CGI;

print "Content-type: text/html\n\n";

print $cgi->header();

print "<p><b>Name:</b> $Formular{AnwenderName}</p>\n";

print "<p><b>Name:</b>", $cgi->param('AnwenderName'), "</p>\n";

print "<p><b>Kommentartext:</b> $Formular{Kommentartext}</p>\n";

print "<p><b>Kommentartext:</b>", $cgi->param('Kommentartext'), "</p>\n";

use Tschoe qw(Matti);