Metainformationen einer Datenbank II

tables.pl

my @tables = (); my $st = $db->prepare("show tables"); $st->execute; my $record; while (defined($record = $st->fetch())) { push(@tables, $record->[0]); } $st->finish; foreach my $table (@tables) { $st = $db->prepare("show columns from $table"); $st->execute; my @fields = (); my @pkey = (); while (defined($record = $st->fetchrow_hashref())) { if (defined($record->{'Key'}) && $record->{'Key'} eq "PRI") { push(@pkey, $record->{'Field'}); } else { push(@fields, $record->{'Field'}); } } print "$table: "; print "primary key = (", join(", ", @pkey), "), " if @pkey > 0; print "other fields = (", join(", ", @fields), ")\n"; } $st->finish; $db->disconnect;