#! /usr/bin/perl -w #show_tables.pl - SHOW TABLES Abfrage ausfuehren und Ergebnisse liefern indem HTML generiert wird. # use strict; use lib qw(/usr/lib/perl5/5.8.5); use bugs; # #Header, Leerzeile und Anfang der Seite ausgeben. # print < Tables in bugs Database

Tables in bugs Database

EOF #Datenbankverbindung herstellen, Tabellenliste ausgeben, Datenbankverbindung abbauen my $dbh = bugs::connect (); my $sth = $dbh->prepare ("SHOW TABLES"); $sth->execute (); while (my @row = $sth->fetchrow_array ()) {    print "$row[0]
\n"; } $dbh->disconnect (); print < EOF