nicht angemeldet
Hallo Stefan,
Nun will ich auch mit "foreach" die "Parameter" - nennt man das so? - der "internen Bezeichnernamen" aufgelistet
haben, nur so funktioniert es z.B. leider nicht, könnte doch aber eigentlich?
Guck dir mal das Beispiel auf http://selfhtml.teamone.de/cgiperl/module/cgi.htm#formularverarbeitung an - da geschieht genau das: "Traversierende" Ausgabe aller Feldnamen mit zugehoerigen Werten.
So wirst Du mich nicht los! Da schickt er mich vom Regen in die Traufe, Objektorientiert, wo ich grad mal
mitbekommen hab was 'ne Variable ist?
So sieht mein 'comments.pl' jetzt aus:
________________________________________________________________
#!/usr/bin/perl -w
use strict;
use CGI;
my $cgi = new CGI;
use CGI::Carp qw(fatalsToBrowser);
my @Feldnamen = $cgi->param();
print $cgi->header(),
$cgi->start_html('CGI-Feedback');
#$cgi->h1('CGI-Feedback vom Programm ',$cgi->i('comments.pl'));
print "<table BORDER=1 cellspacing=0>\n";
foreach my $Feld (@Feldnamen)
{
print "<tr bgcolor=#CFCFCF><td>" ,$Feld, "1</td></tr>\n";
#print $Feld, ": ";
print "<tr bgcolor=#EFEFEF><td>", $cgi->param($Feld), "2</td></tr>\n"; #"<br>";
}
print "</table>\n";
print $cgi->end_html();
$Feld [(name=) Feldnamen/Bezeichnernamen eines eingelesenen Formulars]
$cgi->param($Feld) [(value=) Wert/Bezeichnerwert]
________________________________________________________________
Aber ich will ja, dass es so aussieht (CGI-Ausgabe):
<table>
-------------------------------------
| | |
| Wert/Bezeichnerwert | Feldnamen | # <tr bgcolor=#CFCFCF>
| | |
-------------------------------------
| | |
| Wert/Bezeichnerwert | Feldnamen | # <tr bgcolor=#EFEFEF>
| | |
-------------------------------------
usw...
Dafür bräucht ich aber dann irgedwie "ZWEI Schleifen", weil ich (Wert und Feldnamen) in eine Zeile
bringen muss, oder nicht?
Eigentlich? ...ist das Problem die abwechselnde (bgcolor), die macht mir das schwierig!
So irgendwie, nur halt schön im wechsel müsste das geprintet werden:
print "<tr bgcolor=#CFCFCF><td>",$Feld, "</td><td>",$cgi->param($Feld),"</td></tr>\n";
print "<tr bgcolor=#EFEFEF><td>",$Feld, "</td><td>",$cgi->param($Feld),"</td></tr>\n";
Was hab ich verpasst? Bei Aschenputtel heisst es: "Eins ins Kröpfen eins ins Töpfchen"
Und in PERL?
Die eine ZEILE, andre Zeile, die eine ZEILE, andre Zeile, die eine ZEILE, andre Zeile, usw...
Wer hat lust mal kurz zu helfen? :-)
Viele Gruesse und dann gute Nacht
Thomas N