Thread Key für verschachtelte Hash (4 answers)
Opened by Hagen at 2008-02-06 13:06

Hagen
 2008-02-06 13:06
#105625 #105625
User since
2007-09-06
233 Artikel
BenutzerIn
[default_avatar]
Hallo,

in meine Programm nutzte ich einen verschachtelten Hash. Nun wollte ich mir alle Keys ausgeben, nur irgendwie schaffe ich das nicht für die 'inneren' Hash:

Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22

use strict;
my %daten;

$daten{feld1}{Wert1} = "Inhalt 1 1";
$daten{feld1}{Wert2} = "Inhalt 1 2";
$daten{feld1}{Wert3} = "Inhalt 1 3";

$daten{feld2}{Wert1} = "Inhalt 2 1";
$daten{feld2}{Wert2} = "Inhalt 2 2";
$daten{feld2}{Wert3} = "Inhalt 2 3";

$daten{feld3}{Wert1} = "Inhalt 3 1";
$daten{feld3}{Wert2} = "Inhalt 3 2";
$daten{feld3}{Wert3} = "Inhalt 3 3";

while (my ($Name1, $Wert1) = each %daten){ 
        print "$Name1, $Wert1\n"; 
        
        while (my ($Name2, $Wert2) = each $Wert1) { 
                print "$Name2, $Wert2\n"; 
                } # while
        } # while


Die Schleife in Zeile 16 funktioniert problemlos, hier erhalte ich als Ergebnis z.B.
Code: (dl )
feld1, HASH(0x155520c)
.

Aber wie kann ich mir die Keys von diesem (innerem) Hash anzeigen lassen? Der Ansatz in Zeile 19 ist leider fehlerhaft ($Wert1 ist kein Hash).

Gruß

Hagen
Gruß
Hagen

View full thread Key für verschachtelte Hash