nicht angemeldet
Ich denke nicht, dass ich eine Speicherung in das Script eingebaut habe.
Mein Perl-Script sieht wie folgt aus:
#!/perl/bin/perl -w
use strict;
use CGI::Carp qw(fatalsToBrowser);
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/</</g;
$Wert =~ s/>/>/g;
$Formular{$Name} = $Wert;
}
print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">', "\n";
print "<html><head><title>CGI-Feedback</title></head>\n";
print "<body><h1>Formular</h1>\n";
print "<p><b>Name:</b> $Formular{Name}</p>\n";
print "<p><b>Nickname:</b> $Formular{Nickname}</p>\n";
print "<p><b>E-Mail:</b> $Formular{EMail}</p>\n";
print "<p><b>ICQ:</b> $Formular{ICQ}</p>\n";
print "<p><b>Alter:</b> $Formular{Alter}</p>\n";
print "<p><b>Stadt:</b> $Formular{Stadt}</p>\n";
print "</body></html>\n";
Welchen Befehl muss ich denn ich das Script einfügen, damit die Daten die mir gesendet werden, gespeichert werden.
Wenn der html code benötigt wird gibt bitte Bescheid, dann poste ich den auch nochmal.
Wakabajaschi
Struppi