Foro - Perl en Español

por **jero2528** » 2015-07-23 17:43 @780

Saludos perleros.

Tengo inconvenientes con mi script. Básicamente quiero ejecutar unos comandos cuya salida se va enlazando a medida que se ejecutan. Este es el código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@conn1 =
  conectar_telnet_cisco( $IPDEVICE, $userbackupsdefault, $passbackupsdefault );
if ( ( $conn1[0] ) ) {
    $mensajeerror .=
      "Equipo=$DEVICE, IP=$IPDEVICE, Descripcion=$conn1[0]\n<br>";
    $conteoerrores++;
}
else {
    # @out=$conn1[1]->cmd("terminal length 0\n");
    # sleep(5);
    # @out=$conn1[1]->cmd("show interfaces description | include $SERVICEID\n");
    @out = $conn1[1]->cmd( String => "terminal length 0", Timeout => 5 );
    @out = $conn1[1]->cmd(
        String  => "show interfaces description | include $SERVICEID\n",
        Timeout => 5
    );
    foreach $line (@out) {
        $salida1 .= "$line\n";
    }
    if ( ( $salida1 !~ /^(\s+)?$|.*error.*|^$/is ) || ( $salida1 ne '' ) ) {
        ($ifaceCisco) = $salida1 =~ /^(.+?)(?:\.0)?\s+up/is;
        $salida1 = "";
        print "Iface: $ifaceCisco\n";
        @out = $conn1[1]->cmd(
            String  => "show running-config interface $ifaceCisco\n",
            Timeout => 5
        );    ##### Este comando no da salida
        foreach $line3 (@out) {
            print "Line: $line3\n";
            $salida1 .= "$line3\n";
        }
        print "Salida 2: $salida1\n";
        sleep(10);
    }
}
cerrar_telnet_cisco( $conn1[1] );
$conteointerfaces++;
 
Coloreado en 0.008 segundos,  usando GeSHi 1.0.8.4

He intentado todo con el comando que no da salida, y solo funciona cuando lo dejo fuera de la sentencia if y siendo el primer comando que ejecuta.

Esta es la salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

Iface: Vl183
Line:
Salida 2:
 
Coloreado en 0.007 segundos,  usando GeSHi 1.0.8.4

De ahí en adelante no funciona. Quien pueda darme unas observaciones le estaría bastante agradecido.

Gracias.

Yo no veo nada raro. Quiero decir que no sé qué diferencia podría haber de ejecutar esa línea dentro o fuera del if().

Es claro que el if() se ejecuta porque en la salida aparece Iface, Line y Salida 2. Entonces, esa línea sí que se ejecuta.

Yo probaría a sacar a pantalla el contenido de @out, nada más ejecutarla. Por ejemplo:

print '[', join('|', @out), ']', "\n";
print 'Número: ', scalar(@out), "\n";

Si dice que no sale nada, es que el comando falló. Lo que no sé es que puede tener de diferente de estar ahí a estar fuera del if(), salvo que le afecten llamadas previas a cmd().

por **jero2528** » 2015-07-24 14:52 @661

Hola, explorer. Gracias por tus observaciones.

Lo mismo digo yo: no entiendo en qué se diferencia al estar dentro del if() o estar fuera, acabo de ejecutar la prueba y ahora esta es la salida:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

Iface: Vl183
[]
N▒mero: 1
Line:
Salida 2:
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Qué más podría hacer? :S Con esa salida no devuelve nada. Es como si no se ejecutara el comando

por **explorer** » 2015-07-24 15:55 @705

El número 1 indique que sí ha habido una respuesta. Pero no la vemos (no hay nada entre los corchetes), así que sospecho que se trata de un 'undef'.

Para confirmarlo, habría que usar el Data::Dumper de @out.

Suponiendo que, en efecto, es un 'undef', supongo que ha ocurrido algún error en la ejecución del cmd().

Otra pregunta. Cuando dices "dejo fuera de la sentencia if()", ¿a qué te refieres? ¿Cómo queda el código?

por **jero2528** » 2015-07-24 17:23 @766

Hola, explorer.

Sí, al parecer está vacío. Funciona si lo pongo en este orden:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@conn1 = conectar_telnet_cisco( $IPDEVICE, $userbackupsdefault, $passbackupsdefault );
if ( ( $conn1[0] ) ) {
    $mensajeerror .= "Equipo=$DEVICE, IP=$IPDEVICE, Descripcion=$conn1[0]\n<br>";
    $conteoerrores++;
}
else {
    @out = $conn1[1]->cmd( String => "show running-config interface Vl183\n", Timeout => 35 );
    print '[', join( '-', @out ), ']', "\n";
    print 'Numero: ', scalar(@out), "\n";
    foreach $line3 (@out) {
        print "Line: $line3\n";
        $salida1 .= "$line3\n";
    }
    print "Salida 2: $salida1\n";
    sleep(10);
 
    # @out=$conn1[1]->cmd("terminal length 0\n");
    # sleep(5);
    # @out=$conn1[1]->cmd("show interfaces description | include $SERVICEID\n");
    @out = $conn1[1]->cmd( String => "terminal length 0", Timeout => 5 );
    @out = $conn1[1]->cmd(
        String  => "show interfaces description | include $SERVICEID\n",
        Timeout => 5
    );
    foreach $line (@out) {
        $salida1 .= "$line\n";
    }
    if ( ( $salida1 !~ /^(\s+)?$|.*error.*|^$/is ) || ( $salida1 ne '' ) ) {
        ($ifaceCisco) = $salida1 =~ /^(.+?)(?:\.0)?\s+up/is;
        $salida1 = "";
        print "Iface: $ifaceCisco\n";
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2015-07-24 18:29 @812

Pues no veo nada raro. Salvo que el interfaz lo pones de forma directa en la línea 7, en lugar de capturarlo con la expresión regular de la línea 28.

O sea, que el orden que funciona es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

show running-config interface Vl183

terminal length 0

show interfaces description | include $SERVICEIDColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

mientras que el que no funciona es este:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

terminal length 0

show interfaces description | include $SERVICEID

show running-config interface $ifaceCiscoColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Tú deberías saber en qué orden deben ir las acciones en el aparato Cisco...

Otro detalle que es diferente: en el código que funciona tienes puesto un timeout de 35, mientras que en el que no funciona está puesto a 5. ¿Podría ser esto?

No sé... lo único que se me ocurre probar es ver si $ifaceCisco contiene realmente lo que queremos. Modificaría el print() de la línea 31 por esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print "Iface: [$ifaceCisco]\n";
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

De esa manera nos aseguramos que no estamos pillando algún carácter en blanco o extraño.

por **jero2528** » 2015-07-27 10:33 @481

Hola, explorer,

En orden respondo a las inquietudes, jejeje.

Si, el orden es exactamente el que especificaste:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

terminal length 0
show interfaces description | include $SERVICEID
show running-config interface $ifaceCisco
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Este orden es el que no funciona y en el que se deberían ejecutar los comandos sobre el equipo Cisco.

En el que funciona puse directamente el valor ya que si lo ejecuto de inicio no sé cuál es el valor de $ifaceCisco.

en el código que funciona tienes puesto un timeout de 35, mientras que en el que no funciona está puesto a 5. ¿Podría ser esto?

Es una prueba que hice mientras recibía respuesta en el foro, he aumentado, disminuido, etc., pero no funciona.

En cuanto al cambio del print() este es el resultado que obtuve:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

Iface: [Vl183]
[]
Numero: 1
Line:
Salida 2:
 
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2015-07-27 11:26 @518

Pues entonces, no sé qué será.

Lo único raro que veo... es que a la cadena "terminal length 0" le falta un "\n" al final.

Foro - Perl en Español

Problema ejecución de comandos con Net::Telnet::Cisco

Problema ejecución de comandos con Net::Telnet::Cisco

Publicidad

Re: Problema ejecución de comandos con Net::Telnet::Cisco

Re: Problema ejecución de comandos con Net::Telnet::Cisco

Re: Problema ejecución de comandos con Net::Telnet::Cisco

Re: Problema ejecución de comandos con Net::Telnet::Cisco

Re: Problema ejecución de comandos con Net::Telnet::Cisco

Re: Problema ejecución de comandos con Net::Telnet::Cisco

Re: Problema ejecución de comandos con Net::Telnet::Cisco

¿Quién está conectado?