Foro - Perl en Español

por **SJG3226X** » 2018-01-29 11:11 @508

Buenas.

Estoy haciendo un script para conectarme a un enrutador, por telnet, hacer un show running y descargarme la configuración en local.

Con todos los equipos funciona bien, pero tengo unos enrutadores un poco especiales que al traerme la configuración, parece que el equipo mete en la cabecera de la misma caracteres no UTF8 y queda raro. Esto es lo que veo:

: Cabecera Resultado; cabecera.jpg (59.43 KiB) Visto 1079 veces

Esta es la parte del script donde he intentado meter todo tipo de expresiones regulares para intentar que no guarde la primera línea que va desde el principio hasta la línea que empieza por "; J977...."

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

[.....]
$telnet->print("screen-lenght 1000");
$telnet->print("page");
$telnet->print("show running config");
while (my $line = $telnet->getline())
{
if($line !~/Running configuration:|^\s*$/)
{
$line = ~s/\s+$//g;
push @config, $line;
push @config, "\n";
}
[.....]
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

¿Alguien sabe cómo quedarme con toda la configuración menos la primera línea?

No son caracteres extraños. Son secuencias de caracteres ANSI para colocar el cursor y colorear la salida. Normalmente estos caracteres los interpretará la terminal, pero si capturas toda la salida del comando, pues los recibes tú.

Hay varias formas de solucionarlo.

La primera, y más sencilla, sería ver si el enrutador tiene algún comando por el que le podemos indicar que "nuestra consola" no es capaz de interpretar esos caracteres, para que así no los envíe.

Otra opción podría ser identificar algún texto de entre las secuencias de escape, como puede ser show runningl, pero no queda claro si ese texto es el que hemos enviado o es que nos lo envían de nuevo, como cabecera.

Otra opción sería descartar todo lo que llegue hasta que aparezca la primera línea con un carácter ';'.

Sería algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $en_cabecera = 1;                            # empezamos estando en la cabecera
while (my $line = $telnet->getline()) {
    chomp $line;                                # quitamos fin de línea
 
    if ($en_cabecera and $line =~ /^[;]/) {     # si estamos $en_cabecera y la $line comienza por un ';'
        $en_cabecera = 0;                       # ya no estamos $en_cabecera
    }
    next if $en_cabecera;                       # si aún estamos $en_cabecera, saltamos a la línea siguiente.
 
    # ... procesar $line
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Ahora bien... si estás completamente convencido de que se trata de solo la primera línea y siempre hay una primera línea... entonces la siguiente solución también te puede valer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $line = $telnet->getline();                  # leemos la cabecera... y no hacemos nada con ella
while ($line = $telnet->getline()) {            # procesamos el resto de líneas
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Eliminar primera línea config por telnet

Eliminar primera línea config por telnet

Publicidad

Re: Eliminar primera línea config por telnet

¿Quién está conectado?