Foro - Perl en Español

por **Leo_Gutierrez** » 2011-02-13 04:21 @223

Hola, tengo un archivo con:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

EventContext ABS Sales Order Screen Homepage View

SQL Statement Prepare Time for SQL Cursor with ID D118080: 0.001 seconds 

SQL Statement Execute Time for SQL Cursor with ID D118080: 0.004 seconds 

SQL Statement Initial Fetch Time for SQL Cursor with ID D118080: 0.001 seconds

EventContext ABS Sales Order List View

SQL Statement Prepare Time for SQL Cursor with ID 101AD370: 0.001 seconds 

SQL Statement Execute Time for SQL Cursor with ID 101AD370: 0.004 seconds 

SQL Statement Initial Fetch Time for SQL Cursor with ID 101AD370: 0.000 secondsColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Quiero obtener una salida algo así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

EventContext ABS Sales Order Screen Homepage View [Took 0.006 ]

EventContext ABS Sales Order List View [Took 0.005 ]Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Es decir, hacer una sumatoria sobre los tiempos. Pero me encuentro con el problema del rango entre textos, no sé cómo manejarlo.

¿Podrían darme una ayuda?

Debe ser algo parecido a sed:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

[leo@archero Desktop]$ cat file.txt | sed -n "/Even/,/Event/p"
EventContext ABS Sales Order Screen Homepage View
SQL Statement Prepare Time for SQL Cursor with ID D118080: 0.001 seconds 
SQL Statement Execute Time for SQL Cursor with ID D118080: 0.004 seconds 
SQL Statement Initial Fetch Time for SQL Cursor with ID D118080: 0.001 seconds
EventContext ABS Sales Order List View
[leo@archero Desktop]$ 
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

En fin, cualquier ayuda es bien recibida.

Tengo un avance, con esto logro obtener el texto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while(<$file>)
{
        if(!/Event/.. !/Event/)
        {
                print;
        }
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Pero, ¿cómo saber en qué parte del texto estoy? Esto lo necesito para las sumatorias.

Otra duda, ¿cómo puedo asignar el contenido de un archivo a un escalar? Quiero ver si puedo aplicar una expresión regular. He intentado con $line = <$file>, pero no.

Saludos.

#!/usr/bin/perl
use common::sense;
 
open IN,  q[<], 'kk.txt';
open OUT, q[>], 'kk.txt.out';
 
my $cabecera = '';
my $total    = 0;
 
while (my $línea = <IN>) {
    given($línea) {
        when(/^EventContext/) {
            sumatorio();
            chomp($cabecera = $línea);
        }
        when (/([\d.]+) seconds/) {
            $total += $1;
        }
    }
}
 
sumatorio();
 
close IN;
close OUT;
 
sub sumatorio {
    return if not $cabecera;
    print OUT "$cabecera [Took $total]\n";
    $cabecera = '';
    $total    = 0;
}
 
__END__
EventContext ABS Sales Order Screen Homepage View [Took 0.006]
EventContext ABS Sales Order List View [Took 0.005]
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Con rangos, habría que tener en cuenta el caso de llegar al final del fichero (no más líneas Event).

Para asignar el contenido de un fichero a un escalar, se puede realizar de varias formas.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

openmy$fh,q[<],'kk.txt';
my$fichero=joinq[],<$fh>;# muy ineficiente
close$fh;

openmy$fh,q[<],'kk.txt';
undef$/;
my$fichero=<$fh>;# modo "slurp". La variable $/ indica que no se miren los finales de línea
close$fh;

my$fichero=do{undef$/;open K,'kk.txt';<K>};# Típico modismo de Perl

use File::Slurp;
my$fichero= read_file('kk.txt');# Usando un móduloColoreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **wanako** » 2011-02-14 02:27 @144

Suponiendo que cada línea [EventContext...] es única, podemos también usar un hash:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
 
open IN,  q[<], 'kk.txt';
open OUT, q[>], 'kk.txt.out';
 
my ( %events, $cabecera, $seconds );
 
while ( <IN> ) {
        if ( /(^Event.+)/ ) {
                $cabecera = $1;
                $seconds = 0;
        }
        if ( /(\b[\d.]+\b)/ ) {
                $seconds = $1;
        }
        $events{$cabecera} += $seconds;
}
 
foreach ( keys %events ) {
        print OUT qq[$_ [ Took $events{$_} ]\n];
} 
 
close IN;
close OUT;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **Leo_Gutierrez** » 2011-02-14 16:21 @723

@wanako, el problema es que son varias.

explorer, estudiaré tu solución y veré cómo la modifico. Gracias.

EDITO:

explorer, al usar tu script me da esto:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

readline() on closed filehandle IN at code.pl line 10.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Tuve que instalar common::sense para poder probar tu script. Cambié el script a lo siguiente y ya funciona.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

open(my $file,  q[<], 'file.txt') or die("Error abriendo archivo. $!");
 
my $cabecera = '';
my $total    = 0.0;
 
while(my $linea = <$file>)
{
    
        if($linea =~ /^EventContext/) {
            sumatorio();
            chomp($cabecera = $linea);
        }
        if($linea =~ /([\d.]+) seconds/) {
            $total += $1;
        }
}
 
sumatorio();
 
close($file);
 
sub sumatorio 
{
    return if not $cabecera;
    print "$cabecera [Took $total]\n";
    $cabecera = '';
    $total    = 0;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Mostrar texto entre dos delimitadores

Mostrar texto entre dos delimitadores

Publicidad

Re: Mostrar texto entre dos delimitadores

Re: Mostrar texto entre dos delimitadores

Re: Mostrar texto entre dos delimitadores

¿Quién está conectado?