Foro - Perl en Español

por **situ** » 2011-02-03 20:44 @905

Muchas gracias voy a probarlo.
Saludos.

No logro realizar una búsqueda =(

Lo que necesito hacer es lo siguiente:
- Buscar en el archivo la palabra acceso+numero: if($resultado =~ m/^server\sname.*(acceso\s[0-9|\.]*)\s/) {

- Luego abrir nuevamente el archivo y buscar lo obtenido en la regex anterior, así puedo imprimir toda la línea que contenga ese dato.

Alguien me puede ayudar =)

Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
if ( @ARGV != 1 ) {
 
    die "\nUso: $0 <config>\n\n"
 
      . "   <config>    config.cfg\n"
      ;
 
}
$configuracion= $ARGV[0];
chomp $configuracion;
 
open($archivo, "<", "$configuracion")|| die "$!";
while ( $resultado = <$archivo> ) {
if($resultado =~ m/^server\sname.*(acceso\s[0-9|\.]*)\s/) {
#me devuelve acceso 10
        push (@accesslist,$1);
}
}
close ($archivo);
 
open($archivo, "<", "$configuracion")|| die "$!";
while ( $resultado =~ <$archivo> ) {
foreach $accesslist(@accesslist) {
 if($resultado =~ m/^$accesslist.*)\s/){
print "\n\n\n$1\n\n\n";
        push (@accesslist2,$1);
 }
}
}
 
print "### acceso ###\n";
foreach $accesslist2(@accesslist2) {
                
                        print "- Server= $accesslist2\n"; 
        
        }
close ($archivo)
Coloreado en 0.005 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-02-18 17:33 @773

Para mi sería más claro ver un ejemplo del fichero de entrada...

por **situ** » 2011-02-18 18:11 @799

El contenido es:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

!

username dmin password casasasas

username user1 password asdasdasdasdad

!

server name asdsadasda active acceso 31

server name 13212ssss3 active acceso 31

!

acceso 31 permit 2.2.2.0 0.0.0.255

acceso 31 permit 1.1.1.0 0.0.0.255

acceso 31 permit 3.3.3.0 0.0.0.31

acceso 10 deny tcp any any eq 131

acceso 10 deny tcp any any eq 132Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

La idea es encontrar, primero, qué acceso se encuentra en "server" y buscarlo para encontrar las IP que están asociadas.

Saludos.

por **explorer** » 2011-02-18 19:23 @849

No hace falta leer un fichero más de una vez... si vamos guardando la información que nos interesa en estructuras de datos, luego la podemos recuperar de forma ordenada a lo que queremos extraer.

Por ejemplo:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
use File::Slurp;
 
my @fichero = read_file('kk.txt');
 
my %servidores;
my %accesos;
 
for (@fichero) {                                                                # para todo el fichero...
 
    if (/^server name (?<servidor>\w+) (?:active|desactive) (?<acceso>\w+ \d+)/) {
 
        $servidores { $+{servidor} } =                      $+{acceso};         # solo hay una definición de servidor
    }
    if (/^(?<acceso>\w+ \d+) (?<resto>.+)/) {
 
        push @{$accesos{ $+{acceso} }}, $+{resto};                              # puede haber más de una línea por acceso
    }
}
 
while (my($servidor, $acceso) = each %servidores) {                             # para cada servidor...
 
    if (exists $accesos{ $acceso }) {                                           # si existe la definición de su acceso...
 
        say "Lista de accesos para el servidor $servidor:";
 
        for my $descripción_acceso (@{$accesos{$acceso}}) {                     # listado de todos los accesos
 
            say "\t$acceso : ", $descripción_acceso;
        }
    }
    else {
 
        say "El servidor $servidor no tiene accesos.";
    }
}
 
__END__
Lista de accesos para el servidor asdsadasda:
        acceso 31 : permit 2.2.2.0 0.0.0.255
        acceso 31 : permit 1.1.1.0 0.0.0.255
        acceso 31 : permit 3.3.3.0 0.0.0.31
Lista de accesos para el servidor 13212ssss3:
        acceso 31 : permit 2.2.2.0 0.0.0.255
        acceso 31 : permit 1.1.1.0 0.0.0.255
        acceso 31 : permit 3.3.3.0 0.0.0.31
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

No sé si esta es la salida que buscas.

por **situ** » 2011-02-18 19:30 @854

Sí, voy a tratar de adelantarlo al script que tengo =), ya que solo necesitaba las IP porque tengo un array para realizar comprobaciones, para ver si las que figuran son las correctas o están de más.

Saludos.
Muchas Gracias.

por **situ** » 2011-02-18 19:53 @870

Perdón que copie el código nuevamente pero no estoy logrando adaptarlo, perdón que insista pero la verdad no logro hacerlo andar =(

Me había olvido poner en el ejemplo anterior la parte del hostname...

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
if ( @ARGV != 1 ) {
    die "\nUso: $0 <config>\n\n"
 
      . "   <config>    config.cfg\n"
      ;
}
$configuracion= $ARGV[0];
chomp $configuracion;
 
open($archivo, "<", "$configuracion")|| die "$!";
while ( $resultado = <$archivo> ) {
    if ($resultado =~ m/^hostname\s(.*)/){
        $hostname = $1;
    }
    elsif ($resultado =~ /server name (?<servidor>\w+) (?:active|desactive) (?<acceso>\w+ \d+)/) {
        {
            $+{acceso}; 
        }
        if (/^(?<acceso>\w+ \d+) (?<resto>.+)/) {
            push @{$accesos{ $+{acceso} }}, $+{resto};    # puede haber más de una línea por acceso
        }
        while (my($acceso)) {                             # para cada servidor...
 
            if (exists $accesos{ $acceso }) {             # si existe la definición de su acceso...
 
                for my $descripcion_acceso (@{$accesos{$acceso}}) {   # listado de todos los accesos
 
                    print "\t$acceso : ", $descripcion_acceso;
                }
            }
            else {
                print "El servidor $acceso no tiene accesos.";
            }
        }
    }
}
 
print "### Hostname ### \n$hostname\n";
close ($archivo);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

No puedo tomar el parámetro "name" ya que aveces es otro, por eso quería buscar solamente "acceso 31", ya que éste siempre es igual; solamente cambia su número.

por **explorer** » 2011-02-18 20:04 @877

Me parece que te has liado con las llaves...

Es importante tener un buen sangrado del código, para ver qué es lo que está dentro de qué. Y usar un editor de texto que, teniendo el cursor encima de una llave, coloree la correspondiente. Así sabemos si falta o sobra alguna.

Te he editado el código y, como verás, tienes metido el while() dentro del bucle de lectura. El while() lo uso cuando ya he leído todo el fichero, es decir, cuando tengo toda la información almacenada.

por **situ** » 2011-02-19 13:39 @610

Sabes que estoy probando y no me funciona , solamente encuentra el hostname =(

Saludos.

por **explorer** » 2011-02-19 13:43 @613

No sabía nada que hubiera un hostname. En el ejemplo que publicaste no aparece nada de eso.

Publica el código que tienes ahora, a ver qué es lo que pasa...

Foro - Perl en Español

Expresión regular

Re: 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?