Formular Daten in eine Datei schreiben

[Stefan Muenz]

Hallo Mike,

use CGI qw(:standard);
$name = param('name');
$vorname = param('vorname');
$email = param('email');

Darf man das eigentlich so, ohne eine Instanz des CGI-Obljekts mit einer Variablen zu eroeffnen? (eigene Frage an die Freaks ;-)

open (FILE, " /etc/mailingliste.txt"
  @lines=<FILE>;
  Close(FILE);

Was du da machst, ist, eine Datei einzulesen. Du willst aber doch einfach die Daten in die Datei schreiben, oder? Dann musst du die Datei zum Schreiben oeffnen und mit print-Befehlen in das entsprechende Filehandle schreiben. Also so:

open(FILE, ">>/etc/mailingliste.txt") or die "Datei nicht gefunden";
print FILE "$name\n";
print FILE "$vorname\n";
print FILE "$email\n";
close(FILE);

viele Gruesse
  Stefan Muenz