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

[thread]17423[/thread]

DB auslesen mit DBI dynamisch und richtige Reihenfolge

Tags: perl5 DBI Ähnliche Threads

Leser: 29

Articles: hide open all | hide show old branches

+6 replies
Gustl

2012-05-16 11:26
User since
2011-01-27
443 Artikel
BenutzerIn
Hallo,

ich habe ein kleines Problem:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12

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
- +2 replies
- topeg
  
  2012-05-16 11:47
  User since
  2006-07-10
  2611 Artikel
  BenutzerIn
  Außer ein "Order" hinzuzufügen fällt mir keine Lösung ein.
  Etwa so:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
  
  sub get_orderdarray{ my ($statement, $order, @param) = @_; my $sth = $dbh->prepare($statement); $sth->execute(@param) or die failLog( $dbh->errstr ); my @erg; while (my $zeile = $sth->fetchrow_hashyref()) { my @ret; push(@ret,[$_,$zeile->{$_}]) for(@$order); push(@erg,\@ret); } $sth->finish; return @erg; }
  
  Aufruf:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11
  
  my @table = WebDB::get_hasharray( "SELECT * FROM FCT_WT_SPUREN ORDER BY BE_IDENT", [qw( FACH STELLPLATZ_IDENT EBENE STATIONS_IDENT BE_IDENT SPUR )] );
  
  Das Ergebis wäre ein Dreidimensionales AoA:
  
  Code: (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  @table = ( [ ['FACH',1], ['STELLPLATZ_IDENT',1], ['EBENE',1], ['STATIONS_IDENT',1], ['BE_IDENT',1], ['SPUR',1], ], [ ['FACH',2], ['STELLPLATZ_IDENT',2], ['EBENE',2], ['STATIONS_IDENT',2], ['BE_IDENT',2], ['SPUR',2], ], ... )
  
  Mir fällt keine Möglichkeit ein das Direkt über DBI-Funktionen zu realisieren.
  - Gustl
    
    2012-05-20 14:25
    
    User since
    2011-01-27
    443 Artikel
    BenutzerIn
    
    Danke topeg, für die Anregung und die Mühe. Aber genau das wollte ich eigentlich vermeiden, ich wollte das quasi dynamisch lösen.
    
    Dachte im array index 0 sollen die Spalten stehen und dann eben der Inhalt.
    
    schade das dies nicht geht.
    
    Trotzdem Danke.
    Gruß Gustl
- sitescriptor
  
  2012-05-16 12:08
  
  User since
  2009-08-09
  105 Artikel
  BenutzerIn
  
  Aus anderen Gründen führe ich eine Liste - also mit Reihenfolge - der abgefragten Felder mit.
  Du benutzt dann diese Liste zum Aufbau des SQL und für die Reihenfolge der Ergebnisaufbereitung.
  Aber wahrscheinlich war Dir das schon klar.
- Arkhen2
  
  2012-08-30 17:06
  User since
  2005-03-11
  25 Artikel
  BenutzerIn
  Entschuldigung für die späte Antwort.
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  print join( " : " , @{$sth->{NAME}}) , "\n"; while ( my @row = $sth->fetchrow_array ) { print join( " : " , @row ) , "\n"; }
  
  macht glaube ich das richtige.
- rosti
  
  2012-08-30 18:20
  User since
  2011-03-19
  3712 Artikel
  BenutzerIn
  hi,
  
  bei fetchall_arrayref oder selectall_arrayref gibt es die Möglichkeit, einen Slice zu erzeugen.
  
  Code (perl): (dl )
  
  1 2
  
  my $ref = $STH->fetchall_arrayref({}); my $ref = $DBH->selectall_arrayref($statement, {Slice=>{}});
  
  du bekommst Dein Array, die Elemente sind Hash-Referenzen mit den Feldnamen oder Aliassn.
  
  --Rosti
  
  PS: Die Feldnamen/Alias tust Du in ein array. Wenn Du dann die oben erstellte $ref (array) verarbeitest, castest Du die Hashref zu einem Hash, machst einen Hash-Slice mit den Feldnamen drin und bekommst so die Werte in der richtigen Reihenfolge.
  
  Und: Einen sehr gut lesbaren Code!
  Last edited: 2012-08-30 23:07:01 +0200 (CEST)
  http://rolfrost.de/wallpaper.html
  
  WallPaper -- jeden Monat neu. Mit nur 2 Klicks den Aktuellen Monat auf dem Desktop.

View all threads created 2012-05-16 11:26.