keys durcheinander - #34005 (Datenbanken und Verzeichnisdienste)

steffenw

2006-02-13 22:32

User since
2003-08-15
692 Artikel
BenutzerIn

DBI hat übrigens eine Dokumentation: http://cpan.uwinnipeg.ca/htdocs/DBI/DBI.html

Wenn man die Spalten so haben will, wie man sie anfragt, also wie sie die Datenbank zurückgibt, dann ist fetchrow_hashref sicher nicht die richtige Wahl. Man braucht etwas, was erst einmal die Namen zurückgiibt:

Code: (dl )

$arrayref = $sth->{NAME};
# oder 
$arrayref = $sth->{NAME_lc};
# oder 
$arrayref = $sth->{NAME_uc};

und dann die Inhalte zeilenweise:

Code: (dl )

1
2
3

@array = $sth->fetchrow_array
# oder 
$arrayref = $sth->fetchrow_arrayref;

Alles in Allem heißt das dann:

Code: (dl )

my $dbh = DBI->connect($data_source, $username, $auth, {RaiseError => 1});
my $sth = $dbh->prepare('select * from table');
print qq~<table border="1">\n<tr>\n~;
print map "<th>$_</th>\n", @{$sth->{NAME}};
print "</tr>\n";
while (my $arrayref = $sth->fetchrow_arrayref) {
  print "<tr>\n";
  print map "<td>$_</td>\n", map +(defined($_) ? $_ : 'NULL'), @$arrayref;
  print "</tr>\n";
}
print "</table>\n";
$sth->finish;
$dbh->disconnect;

\n\n

$SIG{USER} = sub {love 'Perl' or die};