Foro - Perl en Español

por **situ** » 2013-07-02 18:19 @805

Una consulta: ¿no se puede adaptar este código para hacer las comprobaciones de las cosas que están mal o faltan? Porque estoy intentando como me comentas y la verdad que no me sale y me pierdo más =(

situ escribiste:Perdón, pero ahora estoy teniendo otra problemática con el script, lo anterior funcionó perfecto.

Obtengo los datos del archivo server.txt. Perdón, pero no sé cómo hacer el "grep" en Perl. Lo intenté y como no lo logré, lo dejé.

Aquí me quedo con las 20 líneas luego de identificar "linea con1":
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
@lineacon1=`grep -e \"^linea con1\" -A20 \"server.txt\"`;

Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4

En @lineacon1 tengo algo como esto:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using text Syntax Highlighting

linea con1
system reset
canales 2
acceso denegado
linea con2
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4

Como se puede apreciar, dentro de estas líneas tengo "linea con2", esto me muestra que en ya salí de "linea con1" y estoy entrando en otra configuración, y no debería hacerlo. Para esto, usé la siguiente regex:

Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting

foreach $lineacon1(@lineacon1) {

## Paso al siguiente foreach cuando encuentro el nombre de la siguiente línea o si comienza con un !

if ($lineacon1 =~ m/^linea\scon1|^!/) {

last;

}

else {

print F "$lineacon1\n";

}

}

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

Ahora mi problema se presenta en que debo hacer lo mismo que hicimos para "ntp": debo hacer comprobaciones y mostrar si algo está mal o si falta algún parámetro.

Digamos:
Sintáxis: [ Descargar ] [ Ocultar ]
Sintáxis: [ Descargar ] [ Mostrar ]
Using perl Syntax Highlighting
@blineacon0=("system reset","canales 2","acceso denegado")

Coloreado en 0.001 segundos, usando GeSHi 1.0.8.4

La verdad que traté de adaptar lo anterior pero ahora al tener la regex para ver cuando salto a "linea con2" me complicó todo.

Saludos.

este tema lleva muchos días, y ya no me acuerdo de lo primero que hablamos.

¿Puedes publicar el código que llevas hecho y un trozo del archivo server.txt que tienes que procesar y decirnos qué salida esperas?

Recuerda que estos foros no están para resolver problemas profesionales, sino solo puntuales.
No queremos ser competencia desleal de ningún profesional o empresa...

por **situ** » 2013-07-02 19:34 @857

Perfecto, debajo dejo la explicación, el código no es para venderlo ni nada de eso solamente quiero aliviar un poco mis tareas.

Sintáxis: (server.txt) [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

hostname pepe

comando 1

comando 2

blaaaaaa

comando 3

line con 0

system reset

canales 2

acceso denegado

line vty 0 4

system reset

canales 3

acceso denegado2

line vty 5 15

system reset

canales 4
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Programa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
### Variables con la información recomendada
@bcon0=("system reset","canales 2");
@blinevty0=("system reset1","canales 3");
@blinevty5=("system reset1","canales 3");
 
sub funcion_escribir {
 
######################################################### Con 0 #########################################################
foreach $linecon0(@linecon0) {
        ## Paso al siguiente foreach cuando encuentro el nombre de la siguiente VTY o si comienza con un !
        if ($linecon0 =~ m/^line\svty\s0\s4|^!/) {
                last;
        }
        else {
                # ACÁ NECESITO HACER LAS COMPROBACIONES QUE HACÍAMOS EN http://perlenespanol.com/foro/busqueda-de-parametros-en-un-archivo-t5955-30.html#p35017
        }
}
 
######################################################### VTY 0 4#########################################################
foreach $linevty0(@linevty0) {
        ## Paso al siguiente foreach cuando encuentro el nombre de la siguiente VTY o si comienza con un !
        if ($linevty0 =~ m/^line\svty\s5\s15|^!/){
                last;
        }
        else {
            # ACÁ NECESITO HACER LAS COMPROBACIONES QUE HACÍAMOS EN http://perlenespanol.com/foro/busqueda-de-parametros-en-un-archivo-t5955-30.html#p35017
 
        }
}
 
######################################################### VTY 5 #########################################################
 
print F "<tr><td bgcolor=\"#F8AD18\">VTY 5</td></tr>\n";
foreach $linevty5(@linevty5) {
        ## Paso al siguiente foreach cuando encuentro el nombre de la siguiente VTY o si comienza con un !
        if ($linevty5 =~ m/^line\svty\s16\s1510|^!/){
                last;
        }
 
        else {
            # ACÁ NECESITO HACER LAS COMPROBACIONES QUE HACÍAMOS EN http://perlenespanol.com/foro/busqueda-de-parametros-en-un-archivo-t5955-30.html#p35017
 
        }
}
 
 
$file= "server.txt";
                                
@linevty0=`grep -e \"^line vty 0\" -A20 \"$file\"`; 
@linecon0=`grep -e \"^line con 0\" -A20 \"$file\"`;
@linevty5=`grep -e \"^line vty 5\" -A20 \"$file\"`;
 
funcion_escribir();
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Perdón por el código pero es lo que pude hacer con mis conocimientos. Mi idea es hacer como antes: ver qué configuración está MAL y cuál FALTA. Lo que sucede es que ahora debo tener X cantidad de líneas luego de encontrar lo que puse en la regex del grep.

por **explorer** » 2013-07-03 15:22 @682

A ver si hemos acertado, esta vez...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl 
use feature say;
use autodie;                    # «Es mejor morir que regresar con deshonor» --proverbio Klingon
 
use CGI ':standard';
 
my %informacion_recomendada = (
    'con 0'     => [ 'system reset', 'canales 2' ],
    'vty 0'     => [ 'system reset', 'canales 3' ],
    'vty 5'     => [ 'system reset', 'canales 3' ],
);
 
my $en_line = '';
my $seccion;            # nombre de la sección
my @seccion;            # contenido de la sección
 
open my $LOG, 'server.txt';
 
while (<$LOG>) {
    chomp;
 
    if (not $en_line) {                         # aún no hemos encontrado un "line"
        next if not /^line/;                    # y en esta línea, tampoco está. Saltamos a la siguiente
 
        $en_line = 1;                           # ¡encontrado!
    }
    elsif (/^!/) {
        last;                                   # encontrado un '!' en una sección, terminamos inmediatamente
    }
 
    if (/^line (.+)/) {                         # analizamos si la línea contiene un 'line'
        if ($seccion) {                         # si tenemos una sección ya leída,
            imprime_seccion();                  # la procesamos
        }
 
        my @palabras = split " ", $1;           # separamos por los espacios en blanco
        $seccion = join " ", @palabras[0, 1];   # recomponemos el nombre de la sección, con las dos primeras palabras
        undef @seccion;                         # ponemos a cero el almacén
        next;                                   # pasamos a la siguiente línea
    }
 
    push @seccion, $_;                          # una línea normal: la guardamos en la sección
}
imprime_seccion();                              # procesamos la última sección
close $LOG;
 
 
sub imprime_seccion {
    say Tr(td({-bgcolor => '#F8AD18'}, uc $seccion));
 
    if (not exists $informacion_recomendada{ $seccion }) {
        say Tr(td({-bgcolor => 'red'}, 'Sección no reconocida'));
    }
    else {
        my @comandos_esperados = @{ $informacion_recomendada{ $seccion } };
        my @seccion_filtrada   = @seccion;
 
        ## Sacamos de la sección leída los comandos que esperamos
        for my $comando_esperado (@comandos_esperados) {
            @seccion_filtrada  = grep { $comando_esperado ne $_ } @seccion_filtrada;
        }
 
        ## Sacamos de los comandos esperados los comandos que hemos leído
        for my $comando_leido (@seccion) {
            @comandos_esperados= grep { $comando_leido    ne $_ } @comandos_esperados;
        }
 
        ## Informamos de los comandos esperados que no hemos encontrado
        for my $comando_esperado (@comandos_esperados) {
            say Tr(td("FALTA : $comando_esperado"));
        }
 
        ## Informamos de los comandos que hemos recibido de más
        for my $comando_leido (@seccion_filtrada) {
            say Tr(td("MAL : $comando_leido"));
        }
    }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

con el server.txt que has mostrado antes, sale esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

<tr><td bgcolor="#F8AD18">CON 0</td></tr>
<tr><td>MAL : acceso denegado</td></tr>
<tr><td bgcolor="#F8AD18">VTY 0</td></tr>
<tr><td>MAL : acceso denegado2</td></tr>
<tr><td bgcolor="#F8AD18">VTY 5</td></tr>
<tr><td>FALTA : canales 3</td></tr>
<tr><td>MAL : canales 4</td></tr>
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo único que hemos hecho es una simple aplicación de conjuntos: quitamos los elementos de un array que encontramos en el otro. Los elementos que quedan en un array son los MALos, y en el otro, los que FALTAN.

por **situ** » 2013-07-04 08:27 @394

Buen día, al final tengo que volver a molestar, tengo un problema con la última line vty. Ésta no termina nunca, ya que por ahora siempre buscamos "line" para hacer el break de cada sección. Lo que necesito es que la última "line" termine cuando encuentre un '!'.

Probé lo siguiente pero no me funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

   ## Sacamos de los comandos esperados los comandos que hemos leído
        for my $comando_leido (@seccion) {
                  if ($comando_leido =~ m/^!/) {
                last;
        }
        else {
                
            @comandos_esperados= grep { $comando_leido    ne $_ } @comandos_esperados;
        }
                }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos.

por **explorer** » 2013-07-04 09:16 @428

Para procesar la última sección, hemos supuesto que llegamos al final del archivo. En ese momento se termina el bucle while(), y hay una llamada más a imprime_seccion(). Yo he supuesto que la última sección terminaba así, según el archivo que has puesto de prueba. Y ahora nos dices que no, que la última sección debe terminar cuando encuentre un carácter '!'. Hay que ser cuidadosos con los ejemplos...

Supongamos, ahora, que el archivo server.txt es este:

Sintáxis: (server.txt) [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

hostname pepe

comando 1

comando 2

blaaaaaa

comando 3

line con 0

system reset

canales 2

acceso denegado

line vty 0 4

system reset

canales 3

acceso denegado2

line vty 5 15

system reset

canales 4

!

otros comandos

y otro mas

incluso un

line vty 6 más

y finColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

bueno, pues reeditando el código anterior (líneas 27 a 29), tenemos la misma salida que antes.

por **situ** » 2013-07-04 10:05 @461

Si te fijas el resultado no es el esperado, digamos en el resultado figura que "canales 3" se encuentra dentro de la sección "VTY 5" y en verdad en server.txt está dentro de "line vty 0 4".

por **explorer** » 2013-07-04 10:20 @472

Claro, porque eso es lo que indican las líneas 7 y siguientes:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my %informacion_recomendada = (
    'con 0'     => [ 'system reset', 'canales 2' ],
    'vty 0'     => [ 'system reset', 'canales 3' ],
    'vty 5'     => [ 'system reset', 'canales 3' ],
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En la sección "vty 5" decimos que esperamos que exista el comando 'canales 3', y en efecto, no está. Por eso lo marca como FALTA. En su lugar aparece 'canales 4', y lo marca como MAL.
En la sección "vty 0" decimos que esperamos que exista el comando 'canales 3', y sí que está.

por **situ** » 2013-07-04 10:43 @488

Te pido disculpas por el error, anda perfecto el script.

por **situ** » 2013-07-04 12:36 @567

Modificando un poco el script para que éste me deje analizar muchos archivos TXT de un mismo directorio, me encontré con los siguientes problemas:
- No me está tomando la regex del '!'
- Cuando son tres archivos el último lo analiza todo y no solo los "line"

Este es el script:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
if ( @ARGV != 1 ) {
    die "\nUse: $0 <dir>\n\n" . "   <dir>    \n";
 
}
 
$directorio = $ARGV[0];
chomp $directorio;
use feature say;
use autodie;                           # «Es mejor morir que regresar con deshonor» --proverbio Klingon
 
# Extensiones permitidas
@extensiones = ( 'txt', 'TXT' );
use CGI ':standard';
 
my %informacion_recomendada = (
    'con 0' => [ 'system reset', 'canales 2' ],
    'vty 0' => [ 'system reset', 'canales 3' ],
    'vty 5' => [ 'system reset', 'canales 3' ],
);
 
my $en_line = '';
my $seccion;                           # nombre de la sección
my @seccion;                           # contenido de la sección
 
opendir( DIR, '.' );
print "Analizando directorio - /$directorio/\n";
while ( $file = readdir(DIR) ) {
    next if not -f $file;              # saltar al siguiente si no es un archivo txt
    open( INPUT, $file ) or die "ERROR: No puedo abrir $file: $!\n";
    $nombre_en_servidor = $file;
    $nombre_en_servidor =~ s/ /_/gi;
    $nombre_en_servidor =~ s!^.*(\\|\/)!!;
    $extension_correcta = 0;
    foreach (@extensiones) {
        if ( $nombre_en_servidor =~ /\.$_$/i ) {
            $extension_correcta = 1;
            last;
        }
    }
    if ($extension_correcta) {
 
        print "\t$file\n";
 
        while (<INPUT>) {
            while (<INPUT>) {
                chomp;
 
                if ( not $en_line ) {                          # aún no hemos encontrado un "line"
                    next if not /^line/;                       # y en esta línea,tampoco está. Saltamos a la siguiente
 
                    $en_line = 1;                              # ¡encontrado!
                }
                elsif (/^!/) {
                    last;                                      # encontrado un '!' en una sección,terminamos inmediatamente
                }
 
                if (/^line (.+)/) {                            # analizamos si la línea contiene un 'line'
                    if ($seccion) {                            # si tenemos una sección ya leída,
                        imprime_seccion();                     # la procesamos
                    }
 
                    my @palabras = split " ", $1;              # separamos por los espacios en blanco
                    $seccion = join " ", @palabras[ 0, 1 ];    # recomponemos el nombre de la sección,con las dos primeras palabras
                    undef @seccion;                            # ponemos a cero el almacén
                    next;                                      # pasamos a la siguiente línea
                }
 
                push @seccion, $_;                             # una línea normal: la guardamos en la sección
            }
        }
    }
    close INPUT;
}
closedir DIR;
imprime_seccion();                     # procesamos la última sección
 
sub imprime_seccion {
    say Tr( td( { -bgcolor => '#F8AD18' }, uc $seccion ) );
 
    if ( not exists $informacion_recomendada{$seccion} ) {
        say Tr( td( { -bgcolor => 'red' }, 'Sección no reconocida' ) );
    }
    else {
        my @comandos_esperados = @{ $informacion_recomendada{$seccion} };
        my @seccion_filtrada   = @seccion;
 
        ## Sacamos de la sección leída los comandos que esperamos
        for my $comando_esperado (@comandos_esperados) {
            @seccion_filtrada = grep { $comando_esperado ne $_ } @seccion_filtrada;
        }
 
        ## Sacamos de los comandos esperados los comandos que hemos leído
        for my $comando_leido (@seccion) {
            @comandos_esperados = grep { $comando_leido ne $_ } @comandos_esperados;
        }
 
        ## Informamos de los comandos esperados que no hemos encontrado
        for my $comando_esperado (@comandos_esperados) {
            say Tr( td("FALTA : $comando_esperado") );
        }
 
        ## Informamos de los comandos que hemos recibido de más
        for my $comando_leido (@seccion_filtrada) {
            say Tr( td("MAL : $comando_leido") );
        }
    }
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

No entiendo por qué tiene este comportamiento ahora =(

Foro - Perl en Español

Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Publicidad

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

Re: Búsqueda de parámetros en un archivo

¿Quién está conectado?