Los SNMP:: Persisten es un módulo Perl para el SNMP pass_persist parte trasera enhebrada.

SINOPSIS

use SNMP:: Persisten qw (&define_oid &start_persister &define_subtree);
use estricto;
use advertencias;


#define basan oid para recibir el subárbol
define_oid (".1.3.6.1.4.1.2021.248");

#start las respuestas de porción de hebra
start_persister ();

#set primer número de aplicación

#loop para siempre para actualizar los valores
mientras (1) {

mi %subtree;
mi $gameName;
mi $index=1; #set primer número de aplicación

$gameName de foreach ("game1", "game2") {#for cada aplicación
$subtree {"1".. $index} = ["NÚMERO ENTERO", $index]; #set juego ponen índice al par de datos
$subtree {"2".. $index} = ["CUERDA", $gameName]; #set juego llaman al par de datos
$subtree {"3".. $index} = ["Counter32", 344.2]; #set par de datos de memoria total
$index ++; #next aplicación
}

#new los valores han llegado - notifican al regulador de subárbol
define_subtree (%subtree);

#dont actualizan para 5 siguientes protocolos
sueño (300);
}