Foro - Perl en Español

por **situ** » 2011-01-16 18:42 @821

Estimados,

Los molesto porque necesito de su ayuda.

Tengo un archivo el cual tiene el siguiente contenido:

- archivo.txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

configuracion hostname pepe

configuracion accesosAllow 1.1.1.1

configuracion accesosAllow 2.2.2.2

configuracion accesosAllow 3.3.3.3

configuracion metricas 10

configuracion listas marcos

configuracion servers 1

configuracion servers 2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Mi idea es tratar de analizar el archivo para obtener lo siguiente:
- salida.txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Hostname-> pepe

accesoAllow -> 1.1.1.1

            -> 2.2.2.2

            -> 3.3.3.3

Serves -> 1

       -> 2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Tengo este script que conseguí.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict ;
die "Error : Could not open file for reading $!" unless open FILE, "<c.txt" ;
my @strings = ("hostname", "accesosAllow", "servers") ;
my $srcstr = join "|", @strings ;
while (<FILE>) {
        print "$`<$&>$'" ### for debugging only
        if /$srcstr/g ;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Pero la salida es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

configuracion <hostname> pepe

configuracion <accesosAllow> 1.1.1.1

configuracion <accesosAllow> 2.2.2.2

configuracion <accesosAllow> 3.3.3.3

configuracion <servers> 1

configuracion <servers> 2Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

No me sirve =( porque me muestra todo y no solo el valor que quiero yo.

Alguien me puede guiar, por favor.

Saludos.

#!/usr/bin/perl
use common::sense;
use autodie;
 
my $accesosAllow  = header('accesoAllow');
my $servers       = header('Server');
 
 
open my $fh, q[<], 'kk.txt';
 
while (my $linea = <$fh>) {
 
    given ($linea) {
        when(/hostname (\w+)/) {
            say "Hostname-> $1";
        }
        when(/(accesosAllow|servers) ([\d.]+)/) {
            eval "\$$1->(\$2)";
        }
    }
}
 
close $fh;
 
 
sub header {
    my $header = shift;
 
    return sub {
            state $head;
            $head //= $header;
            say "$head -> $_[0]";
            ($head = $header) =~ y/a-zA-Z/ / if $head eq $header;
    }    
}
 
__END__
Hostname-> pepe
accesoAllow -> 1.1.1.1
            -> 2.2.2.2
            -> 3.3.3.3
Server -> 1
       -> 2
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2011-01-16 22:11 @965

Funciona perfecto muchas gracias.

Discúlpame que siga molestando, pero ¿se puede poner algún control para que me informe por ejemplo sino hay nada de "Servers" o sino existe?

Gracias.

por **explorer** » 2011-01-17 08:11 @382

Si se trata de recordar cosas, eso lo resuelves muy fácilmente con un hash. Por cada cabecera encontrada, lo guardas en el hash. Finalizado el bucle, es fácil ver si existe o no determinada clave en el hash.

por **situ** » 2011-01-17 13:49 @617

Sabes que estoy probando y anda muy bien; tengo un solo problema por ahora a nivel estético y no puedo solucionarlo.

Quiero analizar el siguiente texto "auth-name" y en la salida se repite el "-" =( No sé cómo sacarlo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

auth-name   -> pedro

    -       -> juan

    -       -> marcosColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2011-01-17 14:40 @653

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
use autodie;
 
my $authname      = header('auth-server');
my $Server        = header('Server');
 
 
open my $fh, q[<], 'kk.txt';
 
while (my $linea = <$fh>) {
 
    given ($linea) {
        when(/hostname (\w+)/) {
            say "Hostname-> $1";
        }
        when(/auth-name (\w+)/) {
            $authname->($1);
        }
        when(/servers (\d+)/) {
            $Server->($1);
        }
    }
}
 
close $fh;
 
sub header {
    my $header = shift;
 
    return sub {
            state $head;
            $head = $head // $header;
            say "$head -> $_[0]";
            ($head = $header) =~ y/a-zA-Z/ / if $head eq $header;
    }    
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-01-17 14:50 @659

En el operador y///, agrega el carácter '-' a la primera parte.

por **situ** » 2011-01-17 14:55 @663

Muchas gracias, como siempre es un lujo participar de este foro.

saludos.

por **situ** » 2011-01-17 15:57 @706

Mediante el código que posteé anteriormente ¿hay forma de ordenar los títulos con su contenido? Por que si lo ejecuto así como está no me entrega la información como es buscada.

Digamos yo espero.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

- hostname

- accessallow

- serversColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El output que me da es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

- accesallow

- hostname

-serverColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Saludos.

por **explorer** » 2011-01-17 18:53 @828

No indicaste que el orden fuera importante, así que la solución al problema indicada es mostrar la información que nos interesa a medida de que se la va encontrando.

Pero si quieres sacarla en otro orden, deberás almacenarla y luego sacarla en ese nuevo orden.

Foro - Perl en Español

Expresión regular

Expresión regular

Publicidad

Re: Expresión regular

Re: Expresión regular

Re: Expresión regular

Re: Expresión regular

Re: Expresión regular

Re: Expresión regular

Re: Expresión regular

Re: Expresión regular

Re: Expresión regular

¿Quién está conectado?