Perl

Veröffentlicht 16. Oktober 200915 j

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

17. Oktober 200915 j

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]

18. Oktober 200915 j

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

22. Oktober 200915 j

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

Empfohlene Antworten

Archiv

Konto

Navigation

Suchen

Configure browser push notifications

Chrome (Android)

Chrome (Desktop)

Safari (iOS 16.4+)

Safari (macOS)

Edge (Android)

Edge (Desktop)

Firefox (Android)

Firefox (Desktop)