Foro - Perl en Español

por **jero2528** » 2014-11-20 17:21 @764

Cordiales saludos perleros.

Tengo problemas para capturar la salida que se genera después de cada comando, a continuación relaciono parte del script que estoy usando:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@conn1 = conectar_telnet_cisco( $IPDEVICE, $userbackups, $passbackups );
if ( ( $conn1[0] ) ) {
    $mensajeerror .= "Equipo=$DEVICE, IP=$IPDEVICE, INTERFACE=$INTERFACE, ERROR=$conn1[0]\n<br>";
    $conteoerrores++;
}
else {
    @out = $conn1[1]->cmd("configure terminal\n");
    @out = $conn1[1]->cmd("interface $INTERFACE\n");
    @out = $conn1[1]->cmd("shutdown\n");
    @out = $conn1[1]->cmd("exit\n");
    @out = $conn1[1]->cmd("exit\n");
    sleep(10);
    @out = $conn1[1]->cmd("write memory\n");
    sleep(10);
 
    $comando .= "configure terminal<br>";
    $comando .= "interface $INTERFACE<br>";
    $comando .= "shutdown<br>";
    $comando .= "exit<br>";
    $comando .= "exit<br>";
    $comando .= "write memory<br>";
 
    foreach $salida (@out) {
        print "Salida--------> $salida\n";
        if ( $salida =~ /.+?error.+?/is ) {
            $comando = $salida . "<br>";
        }
    }
 
    $query_deleted
        = "insert into noglpi_suspended_interface VALUES ($IDHOST, '$DEVICE', '$IPDEVICE', '$INTERFACE', '$DESCR', '$CONF', '$LOCATION', now(), 'SUSPENDED', $SERVICEID, '$FABRICANTE')";
    $sql = $mysql_glpi02->prepare($query_deleted);
    $sql->execute();
    $sql->finish();
 
    $query_deleted
        = "insert into noglpi_suspended_interface_tool VALUES ($IDHOST, '$DEVICE', '$IPDEVICE', '$INTERFACE', '$DESCR', '$CONF', '$LOCATION', now(), 'SUSPENDED', $SERVICEID, '$FABRICANTE')";
    $sql = $mysql_glpi02->prepare($query_deleted);
    $sql->execute();
    $sql->finish();
    ##print "<tr> <td>$CUSTOMER</td> <td>$SERVICEID</td> <td>$SUSPENSIONDATE</td> <td>$DEVICE</td> <td>$IPDEVICE</td> <td>$INTERFACE</td> <td>$DESCR</td> <td>$comando</td> </tr>\n";
    $mensaje
        .= "<tr> <td>$CUSTOMER</td> <td>$SERVICEID</td> <td>$SUSPENSIONDATE</td> <td>$DEVICE</td> <td>$IPDEVICE</td> <td>$INTERFACE</td> <td>$DESCR</td> <td>$comando</td> </tr>\n";
}
cerrar_telnet_cisco( $conn1[1] );
$conteointerfaces++;
}
 
Coloreado en 0.006 segundos,  usando GeSHi 1.0.8.4

Básicamente quiero capturar si al ejecutar uno de los comandos se genera algún tipo de error.
La forma de usarlo es realmente a través de una función que tiene el siguiente código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

## -----------------------------------------------------------------------
## Conexión con los equipos cisco 
## -----------------------------------------------------------------------
sub conectar_telnet_cisco {
        ## ---------------------------------------------------------------
        ## Inicialización de variables
        ## ---------------------------------------------------------------
        my $ip   = $_[0];
        my $err  = "";
        my $telnet = new Net::Telnet::Cisco (Errmode => "return");
        my ($localpass);
 
        ## ---------------------------------------------------------------
        ## Se establece la conexión vía telnet
        ## ---------------------------------------------------------------
        $telnet->open (Host => $ip, Port => 23, Timeout => 12);
        $err = $telnet->errmsg();
        if ($err) {
                return $err, $telnet;
        }
        $telnet->login(Name => "$userbackups",Password => "$passbackups",Timeout => 30);
        $err = $telnet->errmsg();
        return $err, $telnet;
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Agradezco mucho quien me pueda ayudar, no he podido obtener los errores.

    ## Comandos normales
    my @comandos = (
        "configure terminal",
        "interface $INTERFACE",
        "shutdown",
    );
 
    for my $cmd (@comandos) {
        $comando .= "$cmd<br>\n";               # acumulamos el $comando
 
        @out = $conn1[1]->cmd("$cmd\n");
 
        for my  $salida (@out) {
            if ($salida =~ /error/i) {
                $comando .= "=> $salida<br>\n"; # vamos acumulando los errores
            }
        }
    }
 
    ## Provocando la salida
    for (1 .. 3) {                              # tres intentos
 
        @out = $conn1[1]->cmd("exit\n");        # de salir
 
        if (grep { /error/i } @out) {           # si hay un error
            for my  $salida (@out) {
                if ($salida =~ /error/i) {
                    $comando .= "=> $salida<br>\n";     # vamos acumulando los errores
                }
            }
        }
        else {
            last;                               # si no hay error, salimos inmediatamente
        }
 
        sleep(10);
    }
 
    ## Último comando
    $comando .= "write memory<br>\n";
 
    @out = $conn1[1]->cmd("write memory\n");
 
    for my  $salida (@out) {
        if ($salida =~ /error/i) {
            $comando .= "=> $salida<br>\n";     # vamos acumulando los errores
        }
    }
 
   sleep(10);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **jero2528** » 2014-11-21 12:13 @550

Hola, explorer, muchas gracias nuevamente de antemano.

Sí, es eso lo que necesito, ya realicé los ajustes pertinentes pero tengo esta salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<actool/services_to_suspend.pl 95684 COBOGGER7206x1 10.0.120.1 FastEthernet1/0.400
conteo {1} -- Msg: {Las interfaces contenidas en el adjunto se bajaron dado que se encuentran suspendidas en RRData.<br><br>
<table border='1'>
<tr> <b> <td>CUSTOMER</td> <td>SERVICE</td> <td>SUSPENSION</td> <td>DEVICE</td> <td>IPDEVICE</td> <td>INTERFACE</td> <td>DESCR</td> <td>COMANDO</td> </b> </tr>
<tr> <td>EZEQUIEL </td> <td>95684</td> <td>2014-11-21</td> <td>ROUTER7206x1</td> <td>10.0.120.1</td> <td>FastEthernet1/0.400</td> <td>95684 #- PREMIUM_IP #- 2048KB_VID:400 #- 34697_EZEQUIEL #- DIAG 97 # ABCDE #- IFX #- PRUEBA</td> 
 
<td>ini terminal<br>
interface FastEthernet1/0.400<br>
shutdown<br>
write memory<br>
</td> </tr>
</table>
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Como lo puedes notar el comando: ini terminal, retorna:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

ROUTER7206X1#ini terminal
                ^
% Invalid input detected at '^' marker.
 
ROUTER7206X1#interface FastEthernet1/0.400
                ^
% Invalid input detected at '^' marker.
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo que hice sobre el código que me indicaste fue lo siguiente:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

                ## Comandos normales
                my @comandos = ( "ini terminal", "interface $INTERFACE", "shutdown", );
 
                for my $cmd (@comandos) {
                    $comando .= "$cmd<br>\n";  # acumulamos el $comando
                    @out = $conn1[1]->cmd("$cmd\n");
                    for my $salida (@out) {
                        if ( $salida =~ /.+?(error|Invalid).+?/is ) {
                            $comando .= "=> $salida<br>\n";    # vamos acumulando los errores
                        }
                    }
                }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Por lo cual no me está capturando la salida del comando que se ejecuta en el enrutador

¿Por qué podría ser?

Gracias.

por **explorer** » 2014-11-21 13:51 @619

Pues... realmente no sé por qué falla... por alguna razón no admite esos comandos.

Una cosa: no necesitas poner '.+?' en la expresión regular. Fíjate que solo quieres saber si ocurre un 'error' o un 'Invalid', en cualquier sitio, así que no necesitas analizar nada más.

Lo recomendado es ponerlo así:

$salida =~ /error|Invalid/i

Y como no hay comodines '.' pues tampoco es necesaria la opción /s.

Foro - Perl en Español

Problema Usando Net::Telnet::Cisco

Problema Usando Net::Telnet::Cisco

Publicidad

Re: Problema Usando Net::Telnet::Cisco

Re: Problema Usando Net::Telnet::Cisco

Re: Problema Usando Net::Telnet::Cisco

¿Quién está conectado?