SNMP : : Persistent est un module de Perl pour la partie postérieure filetée par pass_persist de SNMP.

SYNTHÈSE

SNMP d'utilisation : : Persistent le qw (&define_subtree de &start_persister de &define_oid) ;
employer strict ;
employer les alertes ;


oid de base de #define pour accueillir le sous-arbre
define_oid (« .1.3.6.1.4.1.2021.248 ») ;

#start les réponses de portion de filetage
start_persister () ;

premier numéro d'application de #set

#loop pour toujours pour mettre à jour les valeurs
tandis que (1) {

mon %subtree ;
mon $gameName ;
mon $index=1 ; premier numéro d'application de #set

foreach $gameName (« game1 », « game2 ») {#for chaque application
$subtree {« 1. ». $index} = [« NOMBRE ENTIER », $index] ; paires de caractéristiques d'index de jeu de #set
$subtree {« 2. ». $index} = [« CHAÎNE DE CARACTÈRES », $gameName] ; paires de caractéristiques de nom de jeu de #set
$subtree {« 3. ». $index} = [« Counter32 », 344.2] ; paires totales de caractéristiques de mémoire de #set
$index++ ; application de #next
}

les valeurs de #new ont obtenu - informer le Contrôleur de sous-arbre
define_subtree (%subtree) ;

mise à jour de #do pas pendant 5 mn suivantes
sommeil (300) ;
}