Foro - Perl en Español

por **explorer** » 2007-10-11 20:17 @887

El error dice que la función Warn no está definida, así que puede ser porque no se haya definido en ese programa, no haya sido definida en alguna de las librerías incluidas o quizás sea porque en realidad se escriba warn, que sí forma parte del Perl.

# this funky wrapper is because SNMP_Session throws exceptions with
# warn(), which we need to catch, instead of letting them run
# roughshod over Cricket's output.

sub _do {
my($subref,@args)=@_;
my(@res);

return(-1)if(defined$skipcnt{$args[0]}&&
$skipcnt{$args[0]}>=$MAXTRIES);

$err='';
eval{
local($SIG{'__WARN__'})=sub{$err=$_[0];die($err);};
@res=&{$subref}(@args);
}Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Kiloko** » 2007-10-12 11:14 @509

Ah y otra cosa, y es que el programa funciona si acorto el OID, por ejemplo:
si antes tenía 1.3.6.1.4.1.1.4.2.1.2.1.2
y lo cambio por 1.3.6.1.4.1,
funciona el programa. :?:

por **explorer** » 2007-10-12 11:19 @513

Sí, pero ¿qué error?

Ayer dijimos que warn no habría por qué definirla porque sí forma parte del lenguaje Perl. La que no está es Warn (primera letra en mayúscula).

Lo que hace el código ese es crear en una nueva función que capture las salidas warn para mostrarlas como simples mensajes die, en caso de producirse al ejecutarse la función pasada en $subref. Pero a su vez, esto se hace dentro de un contexto controlado por eval, con lo que die no termina de forma fulminante el programa.

El texto del comentario dice -algo- así: "Esta curiosa envoltura es debida a que SNMP_Session levanta excepciones con warn(), que necesitamos capturar, en vez de permitir que pisoteen la salida del Cricket".

por **explorer** » 2007-10-12 11:42 @529

¡Ah!, otra cosa...

Estos días están apareciendo muchas nuevas versiones de módulos SNMP en CPAN:

SNMP::Effective
NetSNMP::MibProxy
NetSNMP::LogParser
POE::Component::SNMP::Session
YATG.

por **Kiloko** » 2007-10-12 12:09 @548

Ya encontré el error, y es que era un error humano no por parte del programa: el problema reside en que necesito estar cambiando los OID del programa, y yo anteponía # para hacer los comentarios y daba por hecho que con eso bastaba, pero:

así los declaro:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$sysName="1.3.6.1.4.1.9.9.246.1.4.1.1.2";
my$sysUpTime="1.3.6.1.4.1.9.9.246.1.4.1.1.3";Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

y a esta parte solo anteponía # y pensaba erróneamente que todo lo demás se suprimía, pero no era así ya que el programa continuaba con esta otra parte

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@resultado1=snmpUtils::walk($snmp1,@mibs1);
@resultado2=snmpUtils::walk($snmp2,@mibs2);Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por lo tanto si quiero suprimir, el OID, tengo que hacerlo en esas 2 partes porque si solo lo hago en la primera me manda el error..

También te comento para buscar una MIB que monitoree los túneles que se realizan por un CISCO, (2611XM) ¿alguna idea?
Saludos.

por **explorer** » 2007-10-12 13:13 @592

viewtopic.php?t=1798.html

Foro - Perl en Español

Traps

Publicidad

¿Quién está conectado?