Foro - Perl en Español

por **situ** » 2011-01-18 07:27 @352

Perdón, pero no me doy cuenta de cómo hacerlo. ¿Podrías ayudarme?

Muchas gracias.

Puedes guardar las líneas en un hash, indexadas por el campo principal (servers, allow...) en una estructura de hash de array, para guardar las mismas líneas de un mismo campo en la misma clave hash.

Luego, en la salida, lees las claves hash según el orden en que quieres que salgan. Y de cada clave, listar todos los elementos del array correspondientes a esa clave.

por **situ** » 2011-01-18 08:02 @376

Okas, muchas gracias; voy a ver si me sale =)

por **situ** » 2011-01-19 08:53 @412

Perdón nuevamente pero no logro hacer que funcione el script ya que no sé cómo definir las variables en forma glogal. Me pueden ayudar =).

Gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use common::sense;
use autodie;
 
my $servers  = header("servers");
@ssh= "";
$hostname= "";
 
 
open my $fh, q[<], 'kk.txt';
 
while (my $linea = <$fh>) {
 
    given ($linea) {
        when(/hostname (.*)/) {
             "$hostname=$1";
        }
        when(/Servers (.*)/) {
        push (@ssh,$1);
        }
   }
}
print "### Hostname ### \n$hostname\n";
print "### Authentication ###\n";
foreach(@ssh) {
        print $_ . "\n";
}
 
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.003 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-01-19 10:55 @496

Una cosa es definir las variables, con un valor. Y otra cosa es declararlas (globales, locales o léxicas).

Si quieres declarar variables de forma global, te vale con usar la función my() en el contexto global, para que sean conocidas en el paquete donde están. O usar our() si quieres que sean conocidas en el contexto de todo el fichero (todos los paquetes definidos en el fichero).

por **situ** » 2011-01-19 13:16 @594

Muchas gracias ya me funciona.
Saludos.

por **situ** » 2011-02-03 19:49 @867

Estoy tratando de hacer una regex y mediante el resultado ejecutar una acción pero no lo logré. ¿Me pueden ayudar?

Contenido del archivo config.cfg

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

aaa-server AServer (iface) host 1.2.3.4

aaa-server AServer (iface) host 1.2.3.1
Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Aplicación:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
@valor = (1.2.3.4,1.2.3.5);
open($archivo, "<", 'pix.cfg');
while ( $resultado = <$archivo> ) {
if($resultado =~ m/^aaa-server\s.*\shost\s([0-9|\.].*)/) {
 push (@prueba,$1);
 
}
}
print "### Server Tacacs ###\n";
foreach(@prueba) {
if ($_ eq @valor) {
print $1;
}
}
close $archivo;
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Mi idea es sacar las IP que están en el archivo y compararlas con la variable @valor y que me muestre algo como:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

2.3.4 OK

2.3.5 NOColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Así sé qué tiene configurado.

Saludos.

por **explorer** » 2011-02-03 19:57 @873

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if ($resultado =~ m/host ([0-9.]+)/) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **situ** » 2011-02-03 20:00 @875

Con la regex de la aplicación funcionada ya que me captura las IP, el tema que no me funciona la comparación contra las de la variable @valor.

Mi idea es ver si las IP que están en @valor son las que figuran en la configuración.

por **explorer** » 2011-02-03 20:15 @885

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

foreach(@prueba) {
    if ($_ eq @valor) {
        print $1;
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

A ver... hay varios errores...

'eq' es para comparar cadenas, pero espera a que a ambos lados existan dos escalares, y tu has puesto un array.

$1 contiene lo capturado por el primer par de paréntesis de la expresión regular, pero... aquí NO hay ninguna expresión regular....

Tienes que hacer un doble bucle: uno que recorra @prueba y otro que recorra @valor. Y decidir qué valor es el que quieres presentar.

Si estás en un Perl igual o superior a v5.10, puedes hacer

if ($_ ~~ @valor) {

y sí que te lo busca dentro del array.

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?