2011-06-21T06:53:32 renee

Da brauchst Du ref:

Code (perl): (dl )

1
2
3
4

my $ref = ref $value;
if ( $ref and $ref eq 'HASH' ) {
    eine_ebene_tiefer( $ref );
}

Hmm. Das sieht auf den ersten Blick gut aus.
Im Prinzip muss ich ja nur noch einen else Zweig nehmen, der guckt, ob es ein Key ist. Wenn es keiner ist muss es wohl der Wert sein.