cgi Anfänerfrage: Listendarstellung mit MySQL - #9320 (Perl/CGI)

rk-ger

2006-12-09 22:23

User since
2006-08-07
45 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich, als CGI Neuling, muss Datenbank Abfragen auf einer Website anzeigen. Aber ich finde keinen Einstieg in die Millionen von Perl und CGI Tutorials dieser Welt. Wahrscheinlich sehe ich den Wald vor lauter Bäumen nicht.

Dieser Code (Auszug) muss 'in CGI' umgebaut werden:

Code: (dl )

my $select1 = "select distinct b.carrier, b.boxno, b.listno, b.shipno, b.custno
from data1 b
where b.custno = 160
order by b.listno ";

my $sth = $dbhandle1->prepare($select1);
$sth->execute();
print "carrier,boxno,listno,shipno,custno\n";
while (my  $hash_ref = $sth->fetchrow_hashref) {
   print "$hash_ref->{carrier},";
   print "$hash_ref->{boxno},";
   print "$hash_ref->{listno},";
   print "$hash_ref->{shipno},";
   print "$hash_ref->{custno}\n";
}

Code: (dl )

use CGI qw(:all);

habe ich schon allein hinbekommen. :cool: Mit

Code: (dl )

1
2
3

print header(),
start_html("Ergebnisse"),
h1( "Folgende Daten gefunden:" );

habe ich auch eine Überschrift hinbekommen. Wie bekomme ich jetzt die Ergebnisse der obigen Abfrage sauber als Tabelle dargestellt? Erschwerend kommt hinzu, dass sich die Tabellenzeilen farblich abwechseln sollen (hellgrau, dunkelgrau).

Und da ich mit Datenbankabfragen auch noch nicht so sattelfest bin, gleich noch eine Perl-Frage:
Wie greife ich auf eine Spalte der Ergebnisliste zu um hinterher
eine Schleife für weitere Abfragen programmieren zu können?

So in der Art

Code: (dl )

foreach $boxno ( "liste-alles-boxno's der vorherigen abfrage" ) {
"select blah from db-x where xyz = $boxno"
"zeige Ergebnis der Abfrage acuh wieder als Tabelle"
}

Hilfe oder Hinweise auf eine zu dem Thema vernünftige Doku wären sehr nett.