Formulare über Perl

[Cheatah]

Hi,

Mein Perl-Script sieht wie folgt aus:

sehr gut sind diese Zeilen:

#!/perl/bin/perl -w

use strict;

Sehr schlecht hingegen diese:

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

Lösche sie. Verwende statt dessen das CGI-Modul.

Welchen Befehl muss ich denn ich das Script einfügen, damit die Daten die mir gesendet werden, gespeichert werden.

Welch_e_ Befehl_e_. Es beginnt mit dem Ort der Speicherung: Wenn Du beispielsweise eine Datei meinst, ist open() ein guter Anfang. Beschäftige Dich nicht nur damit, sondern insbesondere auch mit den Problemen, die beim Dateihandling in parallelen Prozessen auftreten. Möchtest Du hingegen in einer Datenbank speichern, solltest Du ein zu Deinem DBMS passendes Modul einbinden. Wünschst Du eine andere Form der Speicherung, solltest Du diese zunächst beschreiben.

Cheatah