Foro - Perl en Español

por **situ** » 2011-02-19 13:45 @615

El código es el del script que publiqué en el post anterior.

El archivo tiene este contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

!

hostname pepe

!

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

Como te decía solamente me trae el hostname, estaba tratando de sacar el tema del "server name" porque en verdad ese cambio cambia siempre, por eso solamente busco "acceso 31", ya que es algo fijo.

Saludos y muchas gracias.

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
 
# Leer el fichero y pasarlo a memoria
my $hostname;
my %usuarios;
my %servidores;
my %accesos;
 
open ENTRADA, 'kk.txt' or die;
 
while (<ENTRADA>) {
 
    next if /^!/;
 
    chomp;
 
    if (/^hostname\s+(\w+)/) {
        $hostname = $1;
        next;
    }
 
    if (/^username\s+(\w+)\s+passwd\s+(\w+)/) {
        $usuarios{$1} = $2;
        next;
    }
 
    if (/^server\s+name\s+(\w+)\s+(?:active|desactive)\s+(\w+ \d+)/) {
        $servidores{$1} = $2;
        next;
    }
 
    if (/^(\w+ \d+)\s+(.+)/) {
        push @{$accesos{ $1 }}, $2;     # es un hash que contiene varios arrays
        next;
    }
}
 
close ENTRADA;
 
# Pintamos el resultado
#print "$hostname\n";
while (my($servidor, $acceso) = each %servidores) {             # para cada servidor...
 
    if (exists $accesos{ $acceso }) {                           # si existe el acceso para ese servidor
 
#        print "Lista de accesos para el servidor $servidor:\n";
 
        for my $descripcion (@{$accesos{$acceso}}) {
            my($IP) = $descripcion =~ /(?:permit|deny) ([0-9.]+|.+)/;
            print "$acceso ", $IP, "\n";
        }
    }
    else {
#        print "El servidor $servidor no tiene accesos.\n";
    }
}
 
__END__
acceso 31 2.2.2.0
acceso 31 1.1.1.0
acceso 31 3.3.3.0
acceso 31 2.2.2.0
acceso 31 1.1.1.0
acceso 31 3.3.3.0
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2011-02-20 00:45 @073

Discúlpame, pero ¿cómo debo de hacer para imprimir solamente lo siguiente?

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

acceso 31 2.2.2.0

acceso 31 1.1.1.0 

acceso 31 3.3.3.0 

acceso 31 2.2.2.0 

acceso 31 1.1.1.0 

acceso 31 3.3.3.0 Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Intenté, pero no puedo lograrlo. Por este motivo te molesto nuevamente.

Saludos.

por **explorer** » 2011-02-20 07:41 @361

Código cambiado.

por **situ** » 2011-02-20 10:33 @481

Como siempre un lujo pertenecer al foro =) Muchas gracias. Anda perfecto.
Saludos.

por **situ** » 2011-02-21 11:24 @517

Al final lo hice de otra forma porque me resultaba más fácil, pero quería consultarte algo ya que ahora la salida la tengo duplicada porque en verdad está dos veces el acceso 31, el cual está bien que figure así pero me gustaría que el resultado no sea duplicado.

1. Busco el acceso que me interesa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

elsif($resultado =~ m/^snmp\sname.*(acceso\s[0-9|\.]*)\s/) {
 push (@accesslist,$1);
        next;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

2. Guardo todos los accesos del archivo, ya que no siempre esta el 31 solo.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 elsif ($resultado =~ m/^(acceso\s[0-9|\.].*)/) {
        push (@accesos,$1);
        next;
    }
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

3. Comparo

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach $accesos(@accesos) {
                foreach $accesslist(@accesslist) {
                if($accesos =~ m/^$accesslist\spermit\s(.*)/) {
               print "$1\n";
 }
                 }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

2.2.0

1.1.0

3.3.0

2.2.0

1.1.0

3.3.0
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Capaz no es el mejor script pero fue la forma que me resulto más fácil de realizar las búsquedas.

por **explorer** » 2011-02-21 11:37 @525

Claro... es que eso de guardar información en arrays y luego recorrerlos para recuperar esa información, es lo que hacen los hash, pero siendo un tipo base de Perl, mucho más rápido.

Debes aprender a manejar hash.

por **situ** » 2011-02-21 11:41 @529

Okas, muchas gracias, voy a probar con hash.

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

¿Quién está conectado?