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

bianca

2009-01-01 08:50

User since
2009-09-13
6990 Artikel
BenutzerIn

user image

Zusätzlich zu murphy's Lösung vielleicht noch dieser Ansatz als Angebot. Ist eine etwas andere Schreibweise.

Code (perl): (dl )

my $ifTable = $session->gettable('ifTable',noindexes=>1);
foreach my $key (keys %$ifTable) {
 foreach my $inkey (keys %{$ifTable->{$key}}) {
  print "Schluessel $key, Unterschluessel $inkey, Wert " . $ifTable->{$key}->{$inkey} . "\n";
 }
}

Hiermit kannst Du über $key auf z.B. 10107 und 10501 zugreifen und mit $inkey auf das jeweilige z.B. 'ifMtu', 'ifDescr' usw.

Edit: Beispielausgabe ergänzt.
Last edited: 2009-01-01 08:53:36 +0100 (CET)

10 print "Hallo"
20 goto 10