Frage zu Perl mit Referenzen auf Hashes

[Rebell]

Hallo.

Ich hab eine Funktion, die aus Verzeichnisinhalten eine Hash-Struktur macht. Das Ergebnis sieht wie folgt aus:

Code: Alles auswählen

$VAR1 = {
          'volume' => {
                        'files' => 4,
                        'dirs' => 2,
                        'root' => [
                                    {
                                      'file' => {
                                                  'file.txt' => '',
                                                  '.fasdeckt' => ''
                                                },
                                      'path' => 'testdir/',
                                      'directory' => {
                                                       'verzeichnis' => {
                                                                          'file' => {
                                                                                      'muhfile.muh' => ''
                                                                                    }
                                                                        },
                                                       'test2' => {
                                                                    'file' => {
                                                                                'mike.txt' => ''
                                                                              }
                                                                  }
                                                     }
                                    }
                                  ]
                      }
        };

Sieht schonmal sehr schick aus. Jedoch benötige ich die interessanten Informationen die sich im inneren des Baumes unterhalb von "root" befinden. Beispielsweise will ich alle Eigenschaften von "root" auslesen.

Dazu habe ich mir eine Referenz auf "root" angelegt. Siehe:

Code: Alles auswählen

$hash = \$dir_structure->{volume}->{root}->[0];

$hash ist dann:

Code: Alles auswählen

$VAR1 = \{
            'file' => {
                        'file.txt' => '',
                        '.fasdeckt' => ''
                      },
            'path' => 'testdir/',
            'directory' => {
                             'verzeichnis' => {
                                                'file' => {
                                                            'muhfile.muh' => ''
                                                          }
                                              },
                             'test2' => {
                                          'file' => {
                                                      'mike.txt' => ''
                                                    }
                                        }
                           }
          };

Leider kann ich kein foreach auf dieses Hash anwenden.

Code: Alles auswählen

foreach $key (keys %hash) {
   print "Schlüssel: " . $key . " Wert: $hash{$key}\n";
}

Gibt gar nichts aus.

[martinvi]

Hallo zusammen :-)

(...) Leider kann ich kein foreach auf dieses Hash anwenden. (...)

Ja, $hash ist kein hash, sondern eine Referenz. Wenn ich

Code: Alles auswählen

$hash = \$dir_structure->{volume}->{root}->[0];

gerade richtig verstehe, ist $hash nicht mal eine Referenz auf einen hash, sondern eine Referenz auf ein array (bzw. einen Listenkontext).

Unabhängig davon musst Du $hash bei der Ausgabe dereferenzieren.

Guck mal `perldoc perlref` und Referenzen bei perlmonks.org.

HTH.

cya ;-)
Martin "vi"

[Rebell]

Code: Alles auswählen

foreach $key (keys %{$$hash}) {
   print "Schlüssel: " . $key . " Wert: $hash{$key}\n";
}

Muss die Referenz erst auflösen und in ein Hash umwandeln. foreach keys verlangt unbedingt ein Hash.

gerade richtig verstehe, ist $hash nicht mal eine Referenz auf einen hash, sondern eine Referenz auf ein array (bzw. einen Listenkontext).

Und der Listenkontext beinhaltet wiederrum ein Hash Es lebe die Skriptsprache...

Danke für den Link.