[Perl] Check auf Referenz...Hash

[Reen_sc]

Hallo!

Mal ne kleine Frage. Gibt es ein Funktion mit der ich checken kann, ob in einem Hash der Value eine Referenz auf einen weiter Hash besitzt?

Aktuell habe ich es so gelöst...

if ($final_hash{$host}->{$descr} =~ /^(HASH)/) {
    foreach my $ip ....
}

Danke

[reneeb]

Dafür gibt es ref();

my $ref = ref $final_hash{$host}->{$descr} || '';
if ( $ref eq 'HASH' ) {
    # ...
}