keys in mehrdimensionalen hashes - #56672 (Allgemeines zu Perl)

Criamon

2005-07-26 00:39

User since
2005-07-26
8 Artikel
BenutzerIn
[default_avatar]

Hallo,

ich hab da ein 'kleines' Problem und hoffe Ihr könnt mir weiterhelfen.
Aus einen SQL Abfrage habe ich ein Array, dass ich mit

Code: (dl )

while ( my @aContr = $sqlResult->fetchrow_array()){

durchlaufe. Die Daten sollen dann in einem mehrdimensionalen Hash nach 2 der Felder gespeichert werden.
Am einfachsten ist wohl ein Codebeispiel:

Code: (dl )

my (%hData);

while ( my @aContr = $sqlResult->fetchrow_array()){
   $hData{$aContr[1]} = ( 
      { $aContr[3] => 
            {
            TYP   =>  $aContr[0],
            DV     =>  $aContr[1],
            STATUS =>  $aContr[2],
            PATTERN =>  $aContr[3],
            .
            .
            .
            }
      }
   );
   # Hier kommt leider nur Müll raus 
   foreach my $t (keys %{$hData{$aContr[1]}}  ){
      foreach my $s (keys %{$hData{$aContr[1]}{$t}} {
         print "KEY von $aContr[1]: $t | Value dazu ist:  $hData{$aContr[1]}{$t}{$s}\n";
      }
   }
}

Das Problem scheint zu sein, dass ich die keys unterhalb von $hData{$aContr[1], bzw. deren Daten nicht richtig ansprechen kann.

Über einen Hinweis wäre ich SEHR dankbar - bin langsam am verzweifeln.

Schonmal Danke

Criamon