Wie einen mehrdimensionalen Hash ausgeben? - #129893 (Allgemeines zu Perl)

murphy

2009-12-31 19:38

User since
2004-07-19
1776 Artikel
HausmeisterIn

Iterieren kann man über einen Hash mit Hilfe von each, die Schlüssel bzw. Werte kann man mittels keys oder values auflisten.

Beispiel (ungetestet):

Code (perl): (dl )

#!/usr/bin/perl
use strict;
use warnings;

use SNMP;

my $session = new SNMP::Session(DestHost => 'xxx', Community => 'xxx', Version => '2');

my $ifTable = $session->gettable('ifTable',noindexes=>1);

print "Interfaces: ", join(", ", keys %{$ifTable}), "\n";

while (my ($key, $info) = each %{$ifTable}) {
  print "key: ", $key, "ifDescr: ", $info->{ifDescr}, "\n";
}

When C++ is your hammer, every problem looks like your thumb.