verschachtelte Datenstrukturen

[Struppi]

Hallo Petra

Ich habe folgendes Problem (einfach umschrieben):

die Datei: BauerA.html beinhaltet folgende Informationen:
BauerA -> Kühe = 3;
       -> Pferde = 2;

die Datei: BauerB.html  beinhaltet folgende Informationen:
BauerB -> Kühe = 1,
       -> Pferde = 5;
       -> Gänse = 2;

die Datei: BauerC.html  beinhaltet folgende Informationen:
BauerC -> Pferde = 2;
       -> Schweine = 5;

zum Schluß möchte ich eine Tabelle (html) Anzeigen wie folgt:

BauerA     BauerB     BauerC
Kühe      3          1          0
Pferde    2          5          2
Gänse     0          2          0
Schweine  0          0          5
Mein Problem:
Ich schaffe es nicht die Daten in einer verschachtelten Struktur abzuspeichern (Hash von Hash) oder ähnlichem.

my %bauern;

sub einlesen
{
my $bauer = irgendwoher();

$bauern{$bauer} = {
kuehe => 0,
pferde => 0,
gaense => 0,
schweine =>0
};

.... jetzt die Tiere einlesen
my $kuehe = getKuehe();
...
my $schweine= getSchweine();

$bauern{$bauer}->{kuehe} = $kuehe;
$bauern{$bauer}->{schweine} = $schweine;

}

Ausgeben:

while( my($bauer, $tiere) = each %bauern)
{
print "$bauer:";
foreach(keys %$tiere)
{
print " $tiere->{$_}";
}
print "\n";
}

So ist allerdings die Tabelle genau andersrum wie du sie wolltest.

Struppi.