DB auslesen mit DBI dynamisch und richtige Reihenfolge - #158383 (Datenbanken und Verzeichnisdienste)

Gustl

2012-05-16 11:26

User since
2011-01-27
441 Artikel
BenutzerIn

Hallo,

ich habe ein kleines Problem:

Code: (dl )

sub get_hasharray{
  my ($statement, @param) = @_;  
  
  my $sth = $dbh->prepare($statement);
  $sth->execute(@param) or die failLog( $dbh->errstr );
  my @erg;
  while (my $zeile = $sth->fetchrow_hashref()){
    push(@erg,$zeile);
  }
  $sth->finish;
  return @erg; 
}

Abfrage:

Code: (dl )

my @table = WebDB::get_hasharray("SELECT FACH, STELLPLATZ_IDENT, EBENE, STATIONS_IDENT, BE_IDENT, SPUR FROM FCT_WT_SPUREN ORDER BY BE_IDENT");

Die Ergebnistabelle möchte ich gerne mit Spaltennamen ausgeben, bzw. in einer html-datei umleiten. Und zwar in der SELBEN Reihenfolge wie die Spaltennamen in der Abfrage sind.
Genau da ist mein Problem, da ich die Spaltennamen mit Hash über den key problemlos auslesen kann, aber es ja keinen Reihenfolge im hash gibt.
Wenn ich mit

Code: (dl )

$sth->fetchrow_array

abfrage, bekomme ich ja eine wunderschöne Tabelle wo die Reihenfolge stimmt, aber leider nur den Inhalt und nicht die Spaltennamen...
so:

Code: (dl )

1
2
3

while ( my @row = $sth->fetchrow_array ) {
    print join( " : " , @row ) , "\n";
}

Gibt es eine einfach Möglichkeit Spaltennamen UND die selbige Reihenfolge, die die Abfrage zurück gibt, auszulesen?

Hoffe es ist klar was gemeint ist.
Gruß
Gustl