Foro - Perl en Español

por **enric73** » 2012-04-20 03:43 @196

Hola compañeros,

He eliminado la primera fila de una serie de ficheros planos de la siguiente manera.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my @arxius_U = sort </home/enric/ASCII/2012042000/UGRD10m*.dat>;
    my @arxius_V = sort </home/enric/ASCII/2012042000/VGRD10m*.dat>;
 
    for my $arxius (@arxius_U) {
    tie my @lineas, 'Tie::File', $arxius;
    shift @lineas;
    untie @lineas;     
    }
    for my $arxius (@arxius_V) {
    tie my @lineas, 'Tie::File', $arxius;
    shift @lineas;
    untie @lineas;     
    }
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Se elimina, pero ¿hay alguna manera de agrupar en menos líneas esta estructura? Básicamente estoy doblando los comandos.

Gracias.

my @arxius_U = sort </home/enric/ASCII/2012042000/UGRD10m*.dat>;
my @arxius_V = sort </home/enric/ASCII/2012042000/VGRD10m*.dat>;
 
for my $arxius (@arxius_U, @arxius_V) {
    tie my @lineas, 'Tie::File', $arxius;
    shift @lineas;
    untie @lineas;
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero a lo mejor no te hace falta hacer esto... ¿Por qué quieres modificar los archivos?
En otros hilos has comentado que vas a leerles para poner su información en tablas.
Entonces... no necesitas modificar los archivos porque puedes eliminar esa línea fácilmente
(valdría un shift() si almacenas el contenido del archivo en un array).

por **enric73** » 2012-04-20 11:26 @518

Hola, explorer. Ha funcionado, sí. Dando respuesta a tu pregunta, lo que necesito es lo siguiente:

Como ya sabe tengo dos tipos de ficheros de variables diferentes cada 3 horas. Pongamos que solamente tengo 4 ficheros (realmente son más) y que abiertos tienen la siguiente forma (tienen más filas, simplemente es un ejemplo)

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

360 181   360 181   360 181   360 181

-1.06     0.03      -1.23     0.5

-1.05     -1.23     0.2       0.3        

-1.03     -2.0      10.23     -2.23

0.03      -3.12     15.23     -2.34

0.02      1.2       10.22     -2.13        

1.03      10.22     5.21      2.2 

10.23     -2.22     -3.15     -6.12 Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lo que necesito es: De cada fichero, eliminar la cabecera, el '360 181' y quedarme con un único fichero .dat. Los ficheros, como ya he puesto, en mis mensajes, salen de estos dos directorios.

my @arxius_U = sort </home/enric/ASCII/2012042000/UGRD10m*.dat>;
my @arxius_V = sort </home/enric/ASCII/2012042000/VGRD10m*.dat>;

Lo que necesito, es agruparlos por parejas en función de la hora, esto ya está, pero además, antes de cada pareja, introducir una línea con la fecha,
20120420 y en algunos casos luego el 000000 o el 120000 en función de la hora del día (lo puedo entrar como argumento).

Es decir, que me quede un fichero.dat con la siguiente forma:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

20120420 000000

 -1.06  -1.05  -1.03  0.03  0.02  1.03  10.23

  0.03  -1.23  -2.00 -3.12  1.20 10.22  -2.22

20120420 030000

 -1.23   0.20  10.23 15.23 10.22  5.21  -3.15

  0.50   0.30  -2.23 -2.34 -2.13  2.20  -6.12Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

El nombre de los ficheros planos en este caso de 4 ficheros sería:

UGRD10m00.dat; VGRD10m00.dat; UGRD10m03.dat; VGRD10m03.dat

Pensaba que necesitaba los ficheros en columnas, pero lo necesito de esta manera.

Gracias.

por **enric73** » 2012-04-22 17:22 @765

Hola, alguien puede ayudarme?

He picado el siguiente script que me lee un fichero de componente U y otro de la componente V (realmente tengo, como ya sabes, más ficheros de cada componente) y me saca por pantalla el formato que necesito. Entro argumentos cuando ejecuto el script:

./vent.dat /.../2012042200/UGRD10m00.dat /.../2012042200/VGRD10m00.dat

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

20120420 000000

 -1.06  -1.05  -1.03  0.03  0.02  1.03  10.23

  0.03  -1.23  -2.00 -3.12  1.20 10.22  -2.22Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;
use Data::CTable;
use POSIX 'strftime';
use Class::Date qw(date now);
use List::MoreUtils qw<zip each_array>;
use autodie;
 
sub makeHeader {
    my @arr = split( /\//, $_[0] );
    my $printdate = $arr[ @arr - 2 ];
    chop($printdate);
    chop($printdate);
    my @tmp  = split( /\./, $arr[ @arr - 1 ] );
    my @tmp2 = split( /m/,  $tmp[0] );
    my $time = $tmp2[1] . "0000";
    print $printdate. "  " . $time . "\n";
}
 
sub makeTable {
    my $file1 = $_[0];
    my $file2 = $_[1];
    makeHeader($file1);
    my @arrf1;
    my @arrf2;
    my $cnt = 0;
    open FP, "< " . $file1;
    while ( $line = <FP> ) {
        if ( $cnt > 0 ) {
            chomp($line);
            $arrf1[ $cnt++ ] = $line;
        }
        else {
            $cnt++;
        }
    }
    close FP;
    $cnt = 0;
    open FP, "< " . $file2;
    while ( $line = <FP> ) {
        if ( $cnt > 0 ) {
            chomp($line);
            $arrf2[ $cnt++ ] = $line;
        }
        else {
            $cnt++;
        }
    }
    close FP;
    open my $Vent, '>', 'vent2.dat';
    my $i;
    for ( $i = 1; $i < $cnt; $i++ ) {
        print( sprintf( "%.02f", $arrf1[$i] ) . "\t" );
    }
    print "\n";
    for ( $i = 1; $i < $cnt; $i++ ) {
        print( sprintf( "%.02f", $arrf2[$i] ) . "\t" );
    }
    print "\n";
    close $Vent;
}
 
#my $i;
#    for ($i=1; $i<$cnt; $i++) {
#my @archivos_U = sort </home/sam/opt/wwatch3/v2.22/ASCII/2012041600/UGRD10m*.dat>;
 
#my @archivos_V = sort </home/sam/opt/wwatch3/v2.22/ASCII/2012041600/VGRD10m*.dat>;
 
#my @arxius = zip(@arxius_U, @arxius_V),"\n";
 
#foreach $a (my @arxius) {
 
#}
#makeTable (@arxius_U,@arxius_V);
#print (sprintf("%.02f",$arrf2[$i])."\t");
#    };
#    print "\n";
#};
makeTable ($ARGV[0],$ARGV[1]);
#};
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Ahora estoy un poco atascado. Para grabar el fichero vent.dat de salida, ¿cómo lo he de hacer? ¿Y si quiero que me haga el fichero.dat con todos los ficheros que tengo en los directorios?

Gracias y buenas noches.

por **enric73** » 2012-04-23 15:03 @668

Hola, ¿alguien puede ayudarme?

He picado el siguiente script que me lee un fichero de componente U y otro de la componente V (realmente tengo, como ya sabes, más ficheros de cada componente) y me saca por pantalla el formato que necesito. Entro argumentos cuando ejecuto el script:

./vent.dat /.../2012042200/UGRD10m00.dat /.../2012042200/VGRD10m00.dat

Este es el formato de salida, y ya me sirve:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

20120420 000000

 -1.06  -1.05  -1.03  0.03  0.02  1.03  10.23

  0.03  -1.23  -2.00 -3.12  1.20 10.22  -2.22Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
    use v5.10;
    use Data::CTable;
    use POSIX 'strftime';
    use Class::Date qw(date now);
    use List::MoreUtils qw<zip each_array>;
    use autodie;
     
    sub makeHeader {
        my @arr = split( /\//, $_[0] );
        my $printdate = $arr[ @arr - 2 ];
        chop($printdate);
        chop($printdate);
        my @tmp  = split( /\./, $arr[ @arr - 1 ] );
        my @tmp2 = split( /m/,  $tmp[0] );
        my $time = $tmp2[1] . "0000";
        print $printdate. "  " . $time . "\n";
    }
     
    sub makeTable {
        my $file1 = $_[0];
        my $file2 = $_[1];
        makeHeader($file1);
        my @arrf1;
        my @arrf2;
        my $cnt = 0;
        open FP, "< " . $file1;
        while ( $line = <FP> ) {
            if ( $cnt > 0 ) {
                chomp($line);
                $arrf1[ $cnt++ ] = $line;
            }
            else {
                $cnt++;
            }
        }
        close FP;
        $cnt = 0;
        open FP, "< " . $file2;
        while ( $line = <FP> ) {
            if ( $cnt > 0 ) {
                chomp($line);
                $arrf2[ $cnt++ ] = $line;
            }
            else {
                $cnt++;
            }
        }
        close FP;
        open my $Vent, '>', 'vent2.dat';
        my $i;
        for ( $i = 1; $i < $cnt; $i++ ) {
            print( sprintf( "%.02f", $arrf1[$i] ) . "\t" );
        }
        print "\n";
        for ( $i = 1; $i < $cnt; $i++ ) {
            print( sprintf( "%.02f", $arrf2[$i] ) . "\t" );
        }
        print "\n";
        close $Vent;
    }
     
    #my $i;
    #    for ($i=1; $i<$cnt; $i++) {
    #my @archivos_U = sort </home/sam/opt/wwatch3/v2.22/ASCII/2012041600/UGRD10m*.dat>;
     
    #my @archivos_V = sort </home/sam/opt/wwatch3/v2.22/ASCII/2012041600/VGRD10m*.dat>;
     
    #my @arxius = zip(@arxius_U, @arxius_V),"\n";
     
    #foreach $a (my @arxius) {
     
    #}
    #makeTable (@arxius_U,@arxius_V);
    #print (sprintf("%.02f",$arrf2[$i])."\t");
    #    };
    #    print "\n";
    #};
    makeTable ($ARGV[0],$ARGV[1]);
    #};
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Ahora estoy un poco atascado. Para grabar el fichero vent.dat de salida, ¿cómo lo he de hacer? ¿Y si quiero que me haga el fichero.dat con todos los ficheros que tengo en los directorios?

Gracias y buenas noches.

por **enric73** » 2012-04-26 08:23 @391

Hola perleros, y especialmente, explorer.

Ya he resuelto mi problema. Os dejo el script por si os interesa. Si alguien puede recortarlo o mejorarlo, que me lo comente, quiero mejorar. Muchas gracias.

El script me deja con el siguiente formato los ficheros .dat de dos variables diferentes:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

20120420 000000

 -1.06  -1.05  -1.03  0.03  0.02  1.03  10.23

  0.03  -1.23  -2.00 -3.12  1.20 10.22  -2.22

20120420 030000

 -1.23   0.20  10.23 15.23 10.22  5.21  -3.15

  0.50   0.30  -2.23 -2.34 -2.13  2.20  -6.12Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Lanzo el script con un argumento: ./vent.pl fecha >vent.dat

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
    use Class::Date qw(date now);
#   use List::MoreUtils qw<zip each_array>;
  
# ---------------------------------------------------------------------------- 
# Arguments del programa:  [yyyymmdd]hh hhmmss
# ---------------------------------------------------------------------------- 
if (@ARGV != 1 )
{
        us_programa();
}
 
# Data 
chomp($flag = $ARGV[0]);
 
my @arxius_U = </home/enric/ASCII/$flag/UGRD10m*.dat>;
 my @arxius_V = </home/enric/ASCII/$flag/VGRD10m*.dat>;
 for ($i=0; $i<@arxius_U; $i++) {
 makeTable($arxius_U[$i], $arxius_V[$i]); 
 }
 
 
sub makeHeader {
    my @arr = split (/\//,$_[0]);
    my $printdate = $arr[@arr-2];
    chop($printdate);
    chop($printdate);
    my @tmp = split (/\./,$arr[@arr-1]);
    my @tmp2 = split (/m/,$tmp[0]);
    my $time = $tmp2[1]."0000";
    print $printdate."  ".$time."\n";
};
 
sub makeTable {
    my $file1 = $_[0];
    my $file2 = $_[1];
    makeHeader ($file1);
    my @arrf1;
    my @arrf2;
    my $cnt=0;
    open FP, "< ".$file1;
    while ($line = <FP>) {
        if ($cnt > 0) {
            chomp($line);
            $arrf1[$cnt++] = $line;
        } else
        {
            $cnt++;
        };
    };
    close FP;
    $cnt=0;
    open FP, "< ".$file2;
    while ($line = <FP>) {
        if ($cnt > 0) {
            chomp($line);
            $arrf2[$cnt++] = $line;
        } else {
            $cnt++;
        };
    };
    close FP;
   #open my $Vent, '>', 'vent.dat';
    my $i;
    for ($i=1; $i<$cnt; $i++) {
        print (sprintf("%.02f",$arrf1[$i])."\t");
    };
    print "\n";
    for ($i=1; $i<$cnt; $i++) {
        print (sprintf("%.02f",$arrf2[$i])."\t");
    };
    print "\n";
};
 
sub us_programa 
{
        print "Us del programa:  Ventsdat    yyyymmdd[hh] \n";
        print "Ex:               Ventsdat   2009102800 \n";
        exit(1);
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-04-26 15:34 @690

Esta es mi versión, que no se diferencia mucho de la tuya, salvo que le he puesto un par de controles de seguridad, a la hora de tratar los datos.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
#
# Unificación de ficheros U y V
# Joaquín Ferrero. 2006.04.26
#
# Inspirado por el trabajo de enric73
 
use strict;
use warnings;
use diagnostics;
 
use feature 'say';
use autodie;
 
my $fecha = shift;
 
if (not defined $fecha  or  $fecha !~ /^\d{8,10}$/) {
    print "Us del programa:  $0 yyyymmdd[hh]\n";
    print "Ex:               $0 2009102800\n";
    
    exit 1;
}
 
my @arxius_U = glob('/home/enric/ASCII/$fecha/UGRD10m*.dat');
my @arxius_V = glob('/home/enric/ASCII/$fecha/VGRD10m*.dat');
 
$fecha = substr $fecha, 0, 8;   # Quitamos la hora, si la hubiera
 
open my $VENT, '>', 'vent.dat';
 
for (my $i = 0; $i < @arxius_U; $i++) {
 
    my($hora_U) = $arxius_U[$i] =~ /(\d+)[.]dat$/;
    my($hora_V) = $arxius_V[$i] =~ /(\d+)[.]dat$/;
 
    die "ERROR: No coincidencia en la hora de los archivos $arxius_U[$i] y $arxius_V[$i]\n"
        if $hora_U ne $hora_V;
 
    open my $FH_U, '<', $arxius_U[$i];
    open my $FH_V, '<', $arxius_V[$i];
 
    my @U = readline $FH_U;
    my @V = readline $FH_V;
 
    close $FH_U;
    close $FH_V;
 
    shift @U;         # Fuera cabeceras
    shift @V;
 
    die "ERROR: No hay el mismo número de datos en $arxius_U[$i] y $arxius_V[$i]\n"
        if @U != @V;
 
    say $VENT "$fecha $hora_U", '0000';
    say $VENT join "\t", map { sprintf "%.02f", $_ } @U;
    say $VENT join "\t", map { sprintf "%.02f", $_ } @V;
}
 
close $VENT;
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-04-27 07:43 @363

Hola explorer,

Muchas gracias por tu script, también lo he probado, y sale el mismo resultado

. Un par de consultas de tu script.

En

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my($hora_U) = $arxius_U[$i] =~ /(\d+)[.]dat$/;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Qué hace =~ /(\d+)[.]dat$/?

Y luego, en

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $fecha = shift;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿shift() recoge el argumento?

Y en

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

shift @U;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Se carga la primera línea, la cabecera?

Muchas gracias, la próxima vez ya trataré otro tema.

por **explorer** » 2012-04-27 09:23 @433

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my($hora_U) = $arxius_U[$i] =~ /(\d+)[.]dat$/;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

quiere decir: «Busca por un conjunto de dígitos (\d+) que están justo antes de una cadena '.dat' que está pegada al final ($) de $arxius_U[$i], los capturas (por acción de los paréntesis alrededor de \d+) y el resultado, como está en contexto lista (por la acción de los paréntesis alrededor de $hora_U), es la lista de elementos capturados. Como solo hemos capturado un grupo de dígitos, se devuelve ese valor y se almacena en $hora_U».

El resultado es que en $hora_U tenemos la hora que aparece al final del nombre del archivo.

shift() extrae un elemento por la parte delantera de un array, y lo devuelve. Si no se indica el array, toma @_ o @ARGV según esté dentro o no de una subrutina. En este caso, sí, estamos leyendo el argumento del programa, extrayendo el primer valor de @ARGV.

shift @U hace también lo mismo: extrae el primer valor de @U. Como es la cabecera, y no nos interesa, pues es una forma de sacarla de @U, donde quedarán el resto de valores.

Más información en perldoc -f shift.

por **enric73** » 2012-04-27 14:48 @658

Muchas gracias, explorer, por los comentarios,

Y si tuvieras dos argumentos de entrada, ¿cómo utilizarías el shift()?

Imaginemos que tenemos la fecha y horas, $fecha y $hora.

Para un argumento sería esta linea, ¿y para dos?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 my $fecha = shift;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Saludos y buen fin de semana.

Enric73

Foro - Perl en Español

Eliminar y añadir filas en un fichero plano

Eliminar y añadir filas en un fichero plano

Publicidad

Re: Eliminar y añadir filas en un fichero plano

Re: Eliminar y añadir filas en un fichero plano

Re: Eliminar y añadir filas en un fichero plano

consulta fichero.dat

Re: Eliminar y añadir filas en un fichero plano

Re: Eliminar y añadir filas en un fichero plano

Re: Eliminar y añadir filas en un fichero plano

Re: Eliminar y añadir filas en un fichero plano

Re: Eliminar y añadir filas en un fichero plano

¿Quién está conectado?