Perl

andrea! · 16. Oktober 2009

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

mtn · 17. Oktober 2009

So in etwa?




#!/usr/bin/perl


####################################################################################

# Name			: Registrierungsformular

# Author		: Andrea Lamparter

# Version		: 0.1

# Created		: 09.Oktober 2009

# Last modified	: 12.Oktober 2009

####################################################################################


use strict;

use warnings;

use diagnostics;


use CGI qw(:standard);

use CGI::Carp qw(fatalsToBrowser);


my $cgi = new CGI;



print "Content-type: text/html\r\n\r\n";


# Eintraege anzeigen


if($cgi->param('action') eq "show")

{


	my $name = $cgi->param('name');

	my $vorname = $cgi->param('vorname');

	my $adresse = $cgi->param('adresse');

	my $ort = $cgi->param('ort');

	my $email = $cgi->param ('email');

	my $geburtsdatum = $cgi->param('geburtsdatum');

	my $kommentar =$cgi->param('kommentar');


	open(out,">>datei.txt");

	print out $name. ",". $vorname. "," .$adresse . "," .$ort. ",". $email ."," . $geburtsdatum .  "," . $kommentar."\n";

	close out;


	my @myRB = $cgi->param('myRB');


	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">

~;


	my @tags = ("Name", "Vorname", "Adresse", "Ort", "Geburtsdatum", "E-Mail", "Kommentar");


	open(out, "datei.txt");


	while(<out>)

	{

		my @entry = split(/,/, $_);

		print "<tr>";

		for(my $i=0; $i<@entry; $i++)

		{

			print "<td>".$tags[$i].":</td><td>".$entry[$i]."</td>";

		}

		print "</tr>";

	}


	close(out);


	print qq(

			</table>

		</body>

	</html>);


}


# Formular für Eintraege


else

{

	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/entry.pl" method="post">

				<input type="hidden" name="action" value="show" />

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

	~;

}


[/PHP]

reneeb · 18. Oktober 2009

Eure Verwendung von "open" hat einige Probleme. Siehe auch Perl-Blog: Verschiedenes zu "open"...

andrea! · 22. Oktober 2009

Hallo !

Ja danke, das wäre auch so eine Möglichkeit.. Habs dann aber irgendwie anders gemacht, so mit CGI-Modulen $cgi->Tr ..

Aber danke trotzdem, nun weiss ich wie es so funktioniert!

Grüsse

andrea

Anmelden

Perl

Empfohlene Beiträge

andrea!

mtn

reneeb

andrea!

Erstelle ein Benutzerkonto oder melde Dich an, um zu kommentieren

Benutzerkonto erstellen

Anmelden

Fachinformatiker Jobs

Fachinformatiker.de, 2024 by SE Internet Services

Links

Fachinformatiker.de App

Kontakt

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

Umsehen

Aktivitäten

Stellenanzeigen

Blog

Über Fachinformatiker.de