Darstellung der MIB im PERL Programm

Zur Übertragung der MIB Struktur in den Subagenten und zur Typisierung der einzelnen MIB Variablen wird das global assoziative Array %MIB benutzt:

    $MIB{'1.1.1.1.0'} = "81";    # trapSourceID
    $MIB{'1.1.1.2.0'} = "81";    # trapSourceTableStatus
    $MIB{'1.1.1.3.0'} = "02";    # facility
    $MIB{'1.1.1.4.0'} = "02";    # severity
    $MIB{'1.1.1.5.0'} = "02";    # logstring
    $MIB{'1.2.0'}     = "81";    # trapSourceTableNextInstance
    ...

Dabei ist folgendes zu beachten:

• Die Instanz-ID der jeweiligen MIB Variable dient als Zugriffsindex im Hash. Dabei ist darauf zu achten, daß die Instanz-ID in ' zu klammern ist, damit PERL die Punkte nicht interpretiert.
• Die eigentlichen Werte im Hash repräsentieren die Typen (Integer, DisplayString, etc.) der einzelnen MIB Variablen. Dabei entspricht der Typ dem Nummerncode der Tabelle 17 im RFC 1592, jedoch in hexadezimaler Darstellung. Der Typ ist in Anführungszeichen zu setzen.
• Bei Tabellen reicht es, pro Variable nur eine Instanz anzugeben (die Zeile 0).

Für das Beantworten eines GETNEXT Requests ist es notwendig, daß die MIB Variablen auch in sortierter Reihenfolge vorliegen. Dazu nimmt das globale Array @MIB die durch die Funktionen by_hierarchy() und less_by_hierarchy() sortierten Variablen des Hashes

# Liste der Keys sortieren
@MIB = sort by_hierarchy keys(%MIB);    # sortierte Liste der MIB-Variablen

Die Aktualisierung von @MIB wird dabei nicht nur einmal bei der Initalisierung der MIB Variablen zu Beginn des Programms durchgeführt, sondern immer dann, wenn dynamisch Variablen enstehen und gelöscht werden, also z.B. beim Erzeugen oder Löschen von Tabellenzeilen.