Wie einen mehrdimensionalen Hash ausgeben? (Allgemeines zu Perl)

[thread]14433[/thread]

Wie einen mehrdimensionalen Hash ausgeben?

Leser: 25

Articles: hide open all | hide show old branches

+5 replies

2009-12-31 18:07

User since
2009-12-31
2 Artikel
BenutzerIn

user image

Nabend zusammen,

ich habe folgendes Script (ist ein Beispiel aus SNMP (Net-Snmp))

Code (perl): (dl )

#!/usr/bin/perl -w

use SNMP;
use Data::Dumper;

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

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

wenn ich es mit Dumper ausgebe passt auch alles:

Code: (dl )

$VAR1 = {
          '10107' => {
                       'ifMtu' => '1500',
                       'ifPhysAddress' => '?"/',
                       'ifOperStatus' => '2',
                       'ifDescr' => 'GigabitEthernet0/7',
                       'ifInUcastPkts' => '0',
                       'ifInDiscards' => '0',
                       'ifAdminStatus' => '2',
                       'ifOutErrors' => '0',
                       'ifIndex' => '10107',
                       'ifLastChange' => '6120',
                       'ifInNUcastPkts' => '0',
                       'ifInErrors' => '0',
                       'ifOutNUcastPkts' => '0',
                       'ifSpeed' => '10000000',
                       'ifOutOctets' => '0',
                       'ifOutDiscards' => '0',
                       'ifOutQLen' => '0',
                       'ifSpecific' => 'zeroDotZero',
                       'ifInOctets' => '0',
                       'ifOutUcastPkts' => '0',
                       'ifType' => '6',
                       'ifInUnknownProtos' => '0'
                     },
          '10501' => {
                       'ifMtu' => '1500',
                       'ifPhysAddress' => '',
                       'ifOperStatus' => '1',
                       'ifDescr' => 'Null0',
                       'ifInUcastPkts' => '0',
                       'ifInDiscards' => '0',
                       'ifAdminStatus' => '1',
                       'ifOutErrors' => '0',
                       'ifIndex' => '10501',
                       'ifLastChange' => '0',
                       'ifInNUcastPkts' => '0',
                       'ifInErrors' => '0',
                       'ifOutNUcastPkts' => '0',
                       'ifSpeed' => '4294967295',
                       'ifOutOctets' => '0',
                       'ifOutDiscards' => '0',
                       'ifOutQLen' => '0',
                       'ifSpecific' => 'zeroDotZero',
                       'ifInOctets' => '0',
                       'ifOutUcastPkts' => '0',
                       'ifType' => '1',
                       'ifInUnknownProtos' => '0'

},

laut perldoc ist der Rückgabewert eine Reverenz auf ein Mehrdimensionalen Hash.

wenn ich jetzt pro interface die jeweiligen Werte ausgeben möchte, wie muss ich das anstellen?

guten rutsch & lg fo

+3 replies
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 )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

#!/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.
- +2 replies
- fo
  
  2009-12-31 20:28
  
  User since
  2009-12-31
  2 Artikel
  BenutzerIn
  
  Hm, funktionieren tut es, nun mus ih es nor noch verstehen, und muss ich das nur noch so bauen das die Interfaces einzeln ausgegeben werden...
  Last edited: 2009-12-31 20:38:37 +0100 (CET)
  - murphy
    
    2009-12-31 22:04
    
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    Ich bin unschlüssig, welche Teile des Codes wohl Verständnisprobleme verursachen. Aber auf Nachfrage kann ich gerne versuchen, bestimmte Stellen näher zu erläutern.
    When C++ is your hammer, every problem looks like your thumb.
bianca

2009-01-01 08:50
User since
2009-09-13
6977 Artikel
BenutzerIn
Zusätzlich zu murphy's Lösung vielleicht noch dieser Ansatz als Angebot. Ist eine etwas andere Schreibweise.
Code (perl): (dl )

1 2 3 4 5 6

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

View all threads created 2009-12-31 18:07.