Net::SNMP Hash reverse

[Siechfred]

Hell-O!

Ich führe über Net::SNMP einen snmpwalk durch
[...]
Kennt sich da vielleicht jemand aus und kann mir weiterhelfen.

Ich kenne mich da zwar mit dem Modul nicht aus, aber in Beispiel 3 wird der Ergebnishash per Hand zusammengebaut, das sollte doch ausbaufähig sein. Ansonsten erklärt perlref, wie man Referenzen nutzen kann:

# Erzeugen der Hash-Referenz  
my $hash_ref = { Apfel => "Rot",  
                 Birne => "Gelb",  
                 Pflaume => "Blau"  
               };  
# leerer Ziel-Hash  
my %new_hash;  
# Tauschen von Schlüssel und Wert  
while ( my($key, $value) = each %$hash_ref) {  
  $new_hash{$value} = $key;  
}  
# Testausgabe  
print "Content-type: Text/plain\n\n";  
while ( my($key, $value) = each %new_hash) {  
  print "\$new_hash{$key} ist $value\n";  
}

Ergibt:
$new_hash{Rot} ist Apfel
$new_hash{Gelb} ist Birne
$new_hash{Blau} ist Pflaume

Siechfred