Foro - Perl en Español

por **migbur** » 2015-01-28 09:42 @446

Hola.

Me estoy iniciando en Perl y quiero filtrar algunas líneas de una salida, esto es: un resumen, puesto que la salida es más larga.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

A3/APT "M#DEL5R 711BIPA" 288 150128   1113      

RADIO X-CEIVER ADMINISTRATIN

TRANSCEIVER GROUP FAULT

MO                                 RSITE           ALARM SLOGAN

RXOTG-321                          00083#COLLAD#D  BTS INTERNAL

A3/APT "M#DEL5R 711BIPA" 291 150128   1119      

DIGITAL PATH FAULT SUPERVISION

DIP      DIPEND   FAULT     SECTION   HG  DATE    TIME

RBLT118           RDI                     150128  111915Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Quiero: La primera línea que coincida con RXOTG-321.

Este sería el resultado final:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

A3/APT "M#DEL5R 711BIPA" 288 150128   1113 ALARM SLOGAN  BTS INTERNALColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Espero que alguien me ayude:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

@output=$telnet->cmd('hostname');
@line_split =  split (/\n/, $output);
foreach my $line (@line_split) 
{
if($line_split=~/RXOTG-X/)#Mi conocimiento no llega a más. No sé cómo imprimir la línea anterior
  {  
     print ("Line: $line\n");
  }
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, migbur.

O sea... el problema se puede expresar así: si se detecta la clave que se está buscando, hay que sacar la primera línea que comienza por A3, seguido por el texto final de la línea anterior a la clave, junto con el texto final de la línea actual.

¿Es eso?

por **migbur** » 2015-01-28 17:07 @755

Hola.

Gracias por tu respuesta.

Sí, sería eso, pero no me cuadra el cómo sabe Perl cuál es la primera línea que pertenece a esa coincidencia RXOTG-321.

Tal vez no me expliqué bien, pero es un log con más datos arriba y abajo.

Imagina que quiero los datos de todas las coincidencias que contengan RXOTG-321.

En pocas palabras: quiero filtrar las alarmas que coincidan con RXOTG-321.

Esta sería la salida completa:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

A3/APT "M#DEL5R 711BIPA" 276 150128   0930      

DIGITAL PATH QUALITY SUPERVISION

SES

DIP      DIPPART  SESL2  QSV    SECTION  DATE    TIME

RBLT149           1      1               150128  093000

A3/APT "M#DEL5R 711BIPA" 287 150128   1111      

DIGITAL PATH QUALITY SUPERVISION

SESR

DIP      DIPPART  SESL2  QSV    SECTION  DATE    TIME

RBLT80            1      1               150128  111142

A3/APT "M#DEL5R 711BIPA" 288 150128   1113      

RADIO X-CEIVER ADMINISTRATION

TRANSCEIVER GROUP FAULT

MO                                 RSITE           ALARM SLOGAN

RXOTG-321                          00083#COLLAD#D  BTS INTERNAL

A3/APT "M#DEL5R 711BIPA" 291 150128   1119      

DIGITAL PATH FAULT SUPERVISION

DIP      DIPEND   FAULT     SECTION   HG  DATE    TIME

RBLT118           RDI                     150128  111915

A3/APT "M#DEL5R 711BIPA" 292 150128   1120      

DIGITAL PATH QUALITY SUPERVISION

SF

DIP      DIPPART  SFL    QSV

RBLT80            5      27

A3/APT "M#DEL5R 711BIPA" 917 150125   0237      

RADIO X-CEIVER ADMINISTRATION

TRANSCEIVER GROUP FAULT

MO                                 RSITE           ALARM SLOGAN

RXOTG-100                          03626#MAJESP#G  BTS INTERNAL

A3/APT "M#DEL5R 711BIPA" 964 150125   1600      

RADIO X-CEIVER ADMINISTRATION

TRANSCEIVER GROUP FAULT

MO                                 RSITE           ALARM SLOGAN

RXOTG-103                          02755#MAJARD#G  BTS INTERNAL

A3/APT "M#DEL5R 711BIPA" 017 150126   1142      

RADIO X-CEIVER ADMINISTRATION

TRANSCEIVER GROUP FAULTColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

De la salida quisiera filtrar todas las coincidencias, que en este caso serían:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

A3/APT "M#DEL5R 711BIPA" 288 150128 1113

RADIO X-CEIVER ADMINISTRATION

TRANSCEIVER GROUP FAULT

MO RSITE ALARM SLOGAN

RXOTG-321 00083#COLLAD#D BTS INTERNALColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Y luego modificar el filtro para que imprima

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

A3/APT "M#DEL5R 711BIPA" 288 150128   1113 ALARM SLOGAN  BTS INTERNALColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Todo el log lo tengo dentro de un escalar que leo línea por línea con el foreach(), pero no sé cómo filtrar una línea que ya fue leída por que la coincidencia esta 6 líneas más abajo.

por **explorer** » 2015-01-28 21:36 @942

Bueno, entonces queda claro que las secciones comienzan por A3/APT, y consisten en una cabecera, una línea en blanco, luego un contenido, y luego más líneas en blanco hasta la siguiente sección.

Puedes ir viendo de línea en línea con el foreach(), y dentro de él, mirar a ver si la línea comienza por A3/APT (por ejemplo, con la función index()); si es así, inicializamos la variable $cabecera y vamos guardando todas las líneas en ella, hasta que encontremos una línea en blanco (este control se puede hacer con una variable que haga de bandera).

Luego comienza el cuerpo. Vamos leyendo líneas y guardándolas en un array (que habremos inicializado en el if() anterior). Y al mismo tiempo vemos si cada línea contiene lo que buscamos (con index(), otra vez). Si es así, levantamos otra bandera.

Cuando encontremos otra línea en blanco, comprobamos si hemos encontrado lo que queremos, y en ese caso, repasamos el array y sacamos lo que nos interesa.

De esta última parte, no queda claro qué es lo que hay que hacer. Parece que quieres extraer las dos últimas palabras de cada línea.

por **explorer** » 2015-01-31 06:51 @327

Bueno, esta es una de las posibles soluciones, usando la técnica de la máquina de estados:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.18;
use experimental 'smartmatch';
use utf8::all;
 
use constant {
    CABECERA => 0,
    CUERPO   => 1,
    SECCION  => 2,
    FUERA    => 3,
};
 
 
@ARGV == 2 or die "Uso: $0 <clave> <archivo>\n";
 
my $clave = shift @ARGV;
 
my $sección = FUERA;                                   # estado inicial
my $cabecera;                                           # almacenes
my @cuerpo;
 
while (my $línea = <>) {
 
    for ($sección) {
        when (FUERA) {                                  # estamos fuera de sección
            if ($línea =~ m{^A3/APT}) {                        # detectada inicio de sección
                $cabecera = $línea;
                $sección = CABECERA;
            }
        }
        when (CABECERA) {
            if ($línea =~ m{^\s*$}) {                  # detectada final de cabecera
                $sección = SECCION;
            }
        }
        when (SECCION) {
            if ($línea =~ m{^\S}) {                    # detectado cuerpo
                $sección = CUERPO;
                continue;
            }
        }
        when (CUERPO) {
            if ($línea =~ m{^\s*$}) {                  # detectado final del cuerpo
 
                if (grep {/\b$clave\b/} @cuerpo) {      # encontrada clave
                    $cabecera =~ s/\s+$//;
 
                    for (@cuerpo) {                     # formatear cuerpo
                        chomp;
                        $_ = substr $_, 51;
                    }
 
                    say "$cabecera ", join "  ", @cuerpo;
                }
 
                $sección = FUERA;
                undef @cuerpo;
            }
            else {
                push @cuerpo, $línea;                  # seguir almacenando
            }
        }
    }
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **migbur** » 2015-02-12 09:20 @431

Hola, compañeros. Para no dejar en el aire este hilo, así quedó finalmente.

Lo único que no me fue posible hacer un solo if() con las dos expresiones. Intenté con

if ($linea =~/^RXO(\w+)-$tg(\s/||/^RXO(\w+)-$tg-/)

pero no funciona.

Así quedó:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open my $allip, "allip.txt";
while ( my $linea = <$allip> ) {
    if ( $linea =~ /^A/ ) {
        $header = $linea;
        chop($header);
 
        #print"$header\n";
    }
    if ( $linea =~ /^RXO(\w+)-$tg(\s)/ ) {
 
        my @linea_split = split( /\s+/, $linea );
 
        #shift @linea_split;
 
        print "$header @linea_split\n\n";
    }
    if ( $linea =~ /^RXO(\w+)-$tg-/ ) {
 
        my @linea_split = split( /\s+/, $linea );
 
        #shift @linea_split;
 
        print "$header @linea_split\n\n";
    }
 
    close allip . txt;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2015-02-12 10:30 @479

Hay una pequeña diferencia entre los dos patrones en las expresiones regulares, así que se puede resumir en una sola:

/^RXO(\w+)-$tg(?:\s|-)/

Es decir: lo que sigue a $tg, es una alternancia de dos valores: o un espacio en blanco o un guión.

Entonces, el código queda así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open my $allip, "allip.txt";
while ( my $linea = <$allip> ) {
    if ( $linea =~ /^A/ ) {
        $header = $linea;
        chomp $header;
 
        #print"$header\n";
    }
    if ( $linea =~ /^RXO(\w+)-$tg(?:\s|-)/ ) {
 
        my @linea_split = split " ", $linea;
 
        #shift @linea_split;
 
        print "$header @linea_split\n\n";
    }
}
close $allip;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Revisa tu código, porque el close() lo tenías mal.

Foro - Perl en Español

Más de expresiones regulares

Más de expresiones regulares

Publicidad

Re: Más de expresiones regulares

Re: Más de expresiones regulares

Re: Más de expresiones regulares

Re: Más de expresiones regulares

Re: Más de expresiones regulares

Re: Más de expresiones regulares

¿Quién está conectado?