U
User123
Grünschnabel
Hallo,
Ich bräuchte da mal ein bisschen Hilfe zu Perl/CGI.
Ich habe einen Apache Webserver der funktioniert. Ich habe nun ein HTML Formular erstellt sowie ein kleines CGI Script geschrieben. Nun würde ich gerne die Daten die man ins Formular eingibt in eine weiteres File abspeichern. Könnte mir da jemand helfen?
Sollte dann etwa so aussehen:
Vorname: Test
Nachname: Test
Text: Test
Hier das CGI Script:
#!/usr/bin/perl -w
use CGI(":standard");
use strict;
my $first = param("txtFirst");
my $last = param("txtLast");
my $message = param("txtMessage");
open(SCHREIBEN,">> /opt/apache2/cgi-bin/daten.txt");
print <<irgend_was_komisch;
Content-type: text/html \n\n
<html>
<head><title>Namen der Datenbank</title></head>
<body bgcolor="#FFFFFF">
<h2>Name von Datenbank</h2>
<p><b>First Name: </b>$first<br></p>
<p><b>Last Name: </b>$last<br></p>
<p><b>Message: </b>$message<br></p>
</body>
</html>
irgend_was_komisch
print SCHREIBEN "First Name: $first\n";
print SCHREIBEN "Last Name: $last\n";
print SCHREIBEN "Message: $message\n";
close(SCHREIBEN);
Sowie das Formular:
<html>
<head>
<title>Formular</title>
</head>
<body bgcolor="FFFFFF">
<h2>Formular</h2>
<p>Bitte geben sie ihren Namen und ihre Nachricht ein</p>
<form action="/cgi-bin/0002.cgi" method=post>
<p>Vorname: <input type="text" name="txtFirst" size="25" maxlength="24"><br>
Nachname: <input type="text" name="txtLast" size="25" maxlength="25"></p>
Message:<br>
<textarea name="txtMessage" rows="4" cols="55" wrap="virtual"></textarea><br>
<input type="Submit" name="Submit" value="Submit">
<input type="Reset" name="Reset" value="Reset"
</form>
</body>
</html>
Danke für die Hilfe
Ich bräuchte da mal ein bisschen Hilfe zu Perl/CGI.
Ich habe einen Apache Webserver der funktioniert. Ich habe nun ein HTML Formular erstellt sowie ein kleines CGI Script geschrieben. Nun würde ich gerne die Daten die man ins Formular eingibt in eine weiteres File abspeichern. Könnte mir da jemand helfen?
Sollte dann etwa so aussehen:
Vorname: Test
Nachname: Test
Text: Test
Hier das CGI Script:
#!/usr/bin/perl -w
use CGI(":standard");
use strict;
my $first = param("txtFirst");
my $last = param("txtLast");
my $message = param("txtMessage");
open(SCHREIBEN,">> /opt/apache2/cgi-bin/daten.txt");
print <<irgend_was_komisch;
Content-type: text/html \n\n
<html>
<head><title>Namen der Datenbank</title></head>
<body bgcolor="#FFFFFF">
<h2>Name von Datenbank</h2>
<p><b>First Name: </b>$first<br></p>
<p><b>Last Name: </b>$last<br></p>
<p><b>Message: </b>$message<br></p>
</body>
</html>
irgend_was_komisch
print SCHREIBEN "First Name: $first\n";
print SCHREIBEN "Last Name: $last\n";
print SCHREIBEN "Message: $message\n";
close(SCHREIBEN);
Sowie das Formular:
<html>
<head>
<title>Formular</title>
</head>
<body bgcolor="FFFFFF">
<h2>Formular</h2>
<p>Bitte geben sie ihren Namen und ihre Nachricht ein</p>
<form action="/cgi-bin/0002.cgi" method=post>
<p>Vorname: <input type="text" name="txtFirst" size="25" maxlength="24"><br>
Nachname: <input type="text" name="txtLast" size="25" maxlength="25"></p>
Message:<br>
<textarea name="txtMessage" rows="4" cols="55" wrap="virtual"></textarea><br>
<input type="Submit" name="Submit" value="Submit">
<input type="Reset" name="Reset" value="Reset"
</form>
</body>
</html>
Danke für die Hilfe
