"Beliebig" tiefes Hash mit keys aus Array erstellen (gelöst) - #149822 (Allgemeines zu Perl)

shi8dao

2011-06-21 13:17

User since
2011-04-26
28 Artikel
BenutzerIn
[default_avatar]

Wie kann ich jetzt noch beim Auslesen feststellen auf welcher Ebene ich bin?

Mache ich das am besten mit einem Closure a la:

Code (perl): (dl )

sub state
{
    my $level = 1;
    return sub
    {
        return level++;
    }
}

?

EDIT:: Mein Ziel ist es im Moment eine Eben zu nehmen und dann alle Werten in den weiteren Ebenen zu summieren.
Beispiel:

Code (perl): (dl )

$tmp{Kamel}{Schlange}{Hering}{Hai} = 5;
$tmp{Kamel}{Schlange}{Hering}{Huhn} = 7;
$tmp{Katze}{Schlange}{Hering}{Huhn} = 9;
$tmp{Katze}{Schlange}{Hering}{Hai} = 24;

Jetzt moechte ich zum Beispiel sagen: Ab Ebene 2 summieren ->

Code (perl): (dl )

1
2

print $tmp{Kamel}{Schlange}; # sollte jetzt 12 sein
print $tmp{Katze}{Schlange}; # sollte jetzt 33 sein

Last edited: 2011-06-21 13:57:26 +0200 (CEST)