• Publicidad

Traps

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Traps

Notapor Kiloko » 2007-10-05 16:27 @727

Saludos Perleros, les comento que hoy comienza un proyecto con traps, pero no tengo idea de lo que sean, me podrían iluminar.. :?: que son para que sirven comentarios sobre ellos relacionados con Perl y alguna idea de como hacer un trap con perl,, se los agradecería,
:?
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Publicidad

Notapor explorer » 2007-10-05 18:04 @795

Según Wikipedia, Trap (computing), es un tipo de interrupción síncrona normalmente causa por una condición excepcional (por ejemplo, una división por cero o un acceso a memoria inválido) en el proceso de un usuario.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Kiloko » 2007-10-08 09:19 @429

Gracias Explorer, encontré esta página, que espero les pueda servir a los que como yo están iniciando o van a iniciar lo SNMP y Traps.

http://meshier.com/docs/oreilly/tcpip2/snmp/ch10_01.htm#ahead-1

Saludos
:D
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Notapor Kiloko » 2007-10-08 15:03 @669

Tengo este programa en Perl
Que lo que hace o debería hacer es mandar un Trap pero me manda un error.

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
#!/usr/local/bin/perl
my $comunidad = public;
my $host = "148.245.52.216";
my $host_name = localhost;

snmptrap("public\@$host:162", ".1.3.6.1.4.1.2789", "$host_name", 6, 1247, \
        ".1.3.6.1.4.1.2789.1247.1", "int", "2448816");
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

Código: Seleccionar todo
Unknown SNMP var SCALAR(0x839194c)
 at /root/workspace/TRABS/4.pl line 20


¿Alguna idea de lo que sea, o ya le ha pasado a alguien?

Saludos...
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Notapor explorer » 2007-10-08 15:16 @677

El problema es el '\' de final de línea.
JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Kiloko » 2007-10-09 11:49 @534

:x rayos, tienes razón... qué raro, en el ejemplo que propone el tutorial que anexé, tiene ese símbolo... mmm, ok, mil gracias.
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Aclarando

Notapor Kiloko » 2007-10-11 12:10 @549

Aún tengo unas dudas, sobre Traps y MIBS. Yo entiendo que, un MIB, digamos 1.2.3.4.11.2.4, quiere decir que hay una baja de voltaje y puede dar 2 valores: 1 o 0. Para esto hay que verlo por dentro, y bueno, tengo un programa que polea estos MIBS y me da ese 0 y 1 que yo traduzco en bajo o normal (voltaje) pero no comprendo su relación con los traps.

¿Alguien me podría explicar esto si es posible con un ejemplo?

Saludos.
:?:
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Notapor explorer » 2007-10-11 17:05 @753

JF^D Perl programming & Raku programming. Grupo en Telegram: https://t.me/Perl_ES
Avatar de Usuario
explorer
Administrador
Administrador
 
Mensajes: 14480
Registrado: 2005-07-24 18:12 @800
Ubicación: Valladolid, España

Notapor Kiloko » 2007-10-11 17:34 @773

Ya, por fin comprendo... :?

Por cierto tengo un error al momento de correr un programa. El error es (el programa contacta a un equipo CISCO para polear mibs; quiero creer que es por la versión del SO -Solaris- o la versión del Perl. ¿Qué opinan==?==????):

Código: Seleccionar todo
Undefined subroutine &snmpUtils::Warn called at /export/home/root/PERL/snmpUtils.pm line 81.


Revisando el snmpUtils.pm encuentro esto:

Sintáxis: [ Descargar ] [ Ocultar ]
Using perl Syntax Highlighting
 # do a little post processing on the overly wordy errors
    # that SNMP_Session gives us...

    if (defined($err) && $err ne '') {
        my(@err) = split(/\n\s*/, $err);
        if ($err[1] eq "no response received") {
            $skipcnt{$args[0]}++;
            my $host = (split(/: /,$err[2]))[1];
            $host =~ s/\)$//;
            $err = "No response from $host";
            $err .= " - Skipping."
                if ($skipcnt{$args[0]} >= $MAXTRIES);
        } elsif ($#err+1 > 2) {
            my($code) = (split(/: /, $err[2]))[1];
            $code = ": undefined error code" if (!$code);
            $err = "$err[1] $code.";
            if ($code eq "noSuchName") {
                my($oid) = $err[3];
                $oid =~ s/.*\((.*)\).*/$1/;
                $err .= " $oid";
            }
        } else {
            $err =~ s/\n//g;
        }

        Warn($err);
    }
Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

:?:
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Respuesta

Notapor Kiloko » 2007-10-11 18:22 @807

Y ese error, niñas y niños Perleros, sale cuando su MIB es demasiado larga, como mi caso:
Código: Seleccionar todo
 1.3.6.1.2.1.10.131.1.1.1.1.1

Saludos... y espero este tip les sirva...
Nunca interrumpas a tu enemigo cuando está cometiendo un error
Napoleón Bonaparte
Avatar de Usuario
Kiloko
Perlero nuevo
Perlero nuevo
 
Mensajes: 243
Registrado: 2007-07-10 18:26 @810
Ubicación: MOnterrey NL

Siguiente

Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 3 invitados

cron