Hallo zusammen
Ich bin gerade am Perl lernen, und stosse da bei so einigem an.
Ich habe ein "Registrierungsformular" (nur zur Übung) erstellt, so ein HTML Formular mit Name, Vorname, Adresse etc.
Mit Perl habe ich nun gemacht, dass diese Eingaben in ein Textfile geschrieben werden. Ich habe es auch geschafft die Eingaben aus dem textfile in ein Array zu speichern und kann die einzelnen Zeilen auch ausgeben.
Nun möchte ich aber, dass es automatisch, wenn ein neuer Eintrag dazu kommt, dass er sich der Tabelle anhängt, d.h. selber eine neue Zeile erzeugt.
(bzw. die ganze Tabelle soll sich dynamisch erstellen, wenn Einträge entstehen).
Hat jemand eine Idee?
Hier meine Code schnipsel:
#!/usr/bin/perl
####################################################################################
# Name : Registrierungsformular
# Author : Andrea Lamparter
# Version : 0.1
# Created : 09.Oktober 2009
# Last modified : 12.Oktober 2009
####################################################################################
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
print qq~
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="de" xml:lang="de">
<head>
<title>Registrierung</title>
<meta http-equiv="content-type" content="text/html; charset=ISO-8859-1" />
<link rel="stylesheet" type="text/css" media="screen" href="../style2.css" />
<script type="text/javascript" src="../javascript2.js"></script>
</head>
<body>
<form name="indexing" action="/cgi-bin/index.pl" method="post">
<table border="1">
<tr>
<td colspan ="2">
<h2> Registrierungsformular </h2>
</td>
</tr>
<tr>
<td colspan="2" class="right">
<p> Felder, welche mit einem * gekennzeichnet sind, sind Pflichtfelder und müssen ausgefüllt werden! </p>
<br />
<p id="ErrMsg0"> </p>
<p id="ErrMsg1"> </p>
</td>
</tr>
<tr>
<td class="left">
Name*:
</td>
<td class="right">
<input type="text" name="name" />
</td>
</tr>
<tr>
<td class="left">
Vorname*:
</td>
<td class="right">
<input type="text" name="vorname" />
</td>
</tr>
<tr>
<td class="left">
Geburtsdatum:
</td>
<td class="right">
<input type="text" name="geburtsdatum" value="TT.MM.JJJJ" />
</td>
</tr>
<tr>
<td class="left">
Adresse*:
</td>
<td class="right">
<input type="text" name="adresse" />
</td>
</tr>
<tr>
<td class="left">
PLZ/Ort*:
</td>
<td class="right">
<input type="text" name="ort" />
</td>
</tr>
<tr>
<td class="left">
E-Mail-Adresse*:
</td>
<td class="right">
<input type="text" name="email" />
</td>
</tr>
<tr>
<td class="left">
Geschlecht*:
</td>
<td class="right">
<input type="radio" name="myRadio" value="maennlich" onclick="setRadioButton(this,0)" /> Männlich
<br />
<input type="radio" name="myRadio" value="weiblich" onclick="setRadioButton(this,0)" /> Weiblich
</td>
</tr>
<tr>
<td class="left">
Kommentar:
</td>
<td class="right">
<textarea name="kommentar" cols="16" rows="6">
</textarea>
</td>
</tr>
<tr>
<td colspan="2">
<input type="submit" value="Senden" onclick="return checker()" />
<input type="button" value="Abbrechen" />
<input type="button" value="checkEmail" onclick="checkEmail(this.form.adr)" />
</td>
</tr>
</table>
</form>
</body>
</html>
~;
dann der Perl Code :
# Name : Registrierung Werte speichern
# Author : Andrea Lamparter
# Version : 0.1
# Created : 12.Oktober 2009
# Last modified : 15.Oktober 2009
####################################################################################
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
print "Content-type: text/html\n\n";
my $cgi = new CGI;
$name = $cgi->param('name');
$vorname = $cgi->param('vorname');
$adresse = $cgi->param('adresse');
$ort = $cgi->param('ort');
$email = $cgi->param ('email');
$geburtsdatum = $cgi->param('geburtsdatum');
$kommentar =$cgi->param('kommentar');
open(out,">>datei.txt");
print out $name. "\n". $vorname. "\n" .$adresse . "\n" .$ort. "\n". $email ."\n" . $geburtsdatum . "\n" . $kommentar ."\n";
close out;
my $cgi = new CGI;
my @myRB = $cgi->param('myRB');
#foreach $key ($cgi->param()){
# $value = param($key);
# print "$key: $value<br />\n";
#}
print @myRB;
open(out, "datei.txt");
@lines = <out> ;
close(out);
#print @lines;
#for my $lines (@lines){
# print "<tr>";
# print map {"<td>$_</td>" } @$lines;
# print "</tr>\n";
#}
my $tag = shift; # erster Parameter
my @lines = $lines; # Rest
print qq(<tr>);
foreach my $lines ( @lines ) {
print qq(<td>$lines</td>);
}
print qq(</tr>);
und soll dann so eine Tabelle geben:
print qq~
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="de" xml:lang="de">
<head>
<title> Bearbeitung </title>
<link rel="stylesheet" type="text/css" media="screen" href="../style2.css" />
</head>
<body>
<h3> Ihre Registrierung war erfolgreich! </h3>
<table border="1">
<tr>
<td>
Name:
</td>
<td>
Vorname:
</td>
<td>
Adresse:
</td>
<td>
Ort:
</td>
<td>
Geburtsdatum:
</td>
<td>
E-Mail:
</td>
<td>
Kommentar:
</td>
</tr>
</table>
</body>
</html>
~;
Danke für die Hilfe
