Foro - Perl en Español

por **explorer** » 2012-04-16 04:17 @220

enric73 escribiste:¿cómo modificaría el sprintf() de esa línea agregando un "\n" a la cadena de formato?

Poniendo un '\' y una 'n' al final de la cadena de formato. :lol:

enric73 escribiste:¿O cómo modificaría la forma de imprimir hacia el archivo, haciendo un bucle, por ejemplo, haciendo un print() de cada elemento de @dat, con su "\n" correspondiente?

Con un bucle for().

enric73 escribiste:He visto que de esta manera se intercalan los datos cada dos ficheros (U y V). Pero lo quiero más sencillo. Primero que se guarden los datos del fichero U (todos seguidos), luego los del fichero V (todos seguidos) para una cierta hora pero sin intercalar los datos del fichero U y V, luego otra vez todos los datos de los ficheros U y V para la siguiente hora... ¿En este caso el each_array() no lo necesitaría?

Pues no, claro. Como ya tienes los datos de U en el array @u, pues lo sacas, y luego el array @v.

¡Adelante!

Buenas tardes, no sé cómo sacar los datos de los ficheros U* y V* que tengo metidos en los array @U y @V en un solo dat. He repicado el script pero estoy bloqueado, estoy hecho un lio ya, entre los arrays, escalares y la manera de pintarlos. No sé cómo meter los diferentes ficheros .dat (UGRD* y VGRD*) en una sola columna o línea y uno detrás del otro (ficheros enteros, primero uno entero de la componente U, luego uno entero de la componente V, luego el siguiente de la componente U, después otro fichero entero de la componente V, y así sucesivamente...).

Adjunto el script. Gracias.

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;
 
my @archivos_U = </home/enric/ASCII/2012041600/UGRD10m*.dat>;
my @archivos_V = </home/enric/ASCII/2012041600/VGRD10m*.dat>;
 
die "ERROR: No coinciden el numero de archivos U y V.\n"
 if @archivos_U != @archivos_V;
 
#Process
my @dat;
 
my $archivo_u = @archivos_U;
my $archivo_v = @archivos_V;
open my $U, '<', $archivo_u;
open my $V, '<', $archivo_v;
 
#read files
my @u = <$U>;
my @v = <$V>;
 
#die "ERROR: No tenen el mateix nombre de linees els arxius $archivo_U[$i] i $archivo_V[$i]"
 #  if @u != @v;
 
#Close files
close $U;
close $V;
 
my $u = @u
my $v = @v
push @dat, sprintf"%.2f %.2f ", $u, $v;
 
$file = "ventscol2.dat";
open( DATA, ">$file" );
print DATA @dat;
close DATA;                      }
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-04-16 14:34 @648

Pero si no es tan complicado... si tenemos un array, eso implica que tenemos que hacer un bucle que recorra sus elementos. Y por cada uno, lo pintamos.

Según lo que dices ahora, el problema es mucho más fácil de solucionar. Solo hay que leer los archivos barajados con zip, y luego, volcar los datos de todo el archivo, línea a línea.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use v5.10;
#use POSIX 'strftime';
#use Class::Date qw(date now);
use List::MoreUtils qw<zip>;
use autodie;
 
my @archivos_U = </home/enric/ASCII/2012041400/UGRD10m*.dat>;
my @archivos_V = </home/enric/ASCII/2012041400/VGRD10m*.dat>;
 
die "ERROR: No coinciden el número de archivos U y V.\n"
    if @archivos_U != @archivos_V;
 
# Aquí falta ordenar los archivos por hora
 
 
# Proceso
my @archivos = zip(@archivos_U, @archivos_V);
 
open my $VENT, '>', 'vent.dat';
 
for my $archivo (@archivos) {
    open my $FILE, '<', $archivo;
    while (<$FILE>) {
        chomp;
        printf $VENT "%.2f\n", $_;
    }
    close $FILE;
}
 
close $VENT;
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-04-16 16:17 @720

Muchas gracias, explorer.

No me acordé de barajar con el zip, no caí en la cuenta. Tal como está el script no se guarda un fichero.dat al final. He intentado guardarlo pero queda vacío. Adjunto el script con unas líneas para guardar el .dat con nombre vent.dat. Espero poder ir más suelto en breve.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 #!/usr/bin/perl
    use v5.10;
    #use POSIX 'strftime';
    #use Class::Date qw(date now);
    use List::MoreUtils qw<zip>;
    use autodie;
     
    my @archivos_U = </home/enric/ASCII/2012041400/UGRD10m*.dat>;
    my @archivos_V = </home/enric/ASCII/2012041400/VGRD10m*.dat>;
     
    die "ERROR: No coinciden el número de archivos U y V.\n"
        if @archivos_U != @archivos_V;
     
    # Aquí falta ordenar los archivos por hora
     
     
    # Proceso
    my @archivos = zip(@archivos_U, @archivos_V);
    open (Fichero, ">vent.dat") or die "$!\n"; 
    for my $archivo (@archivos) {
        open my $FILE, '<', $archivo;
        while (<$FILE>) {
            chomp;
            printf $FILE "%.2f\n", $_;
        }
        close $FILE;
    }
      close Fichero;
    __END__
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-04-16 16:26 @726

Pues el caso es que me he dado cuenta de que hay un error en mi código.

Lo he arreglado y le he puesto lo que querías.

Y sí, te aconsejo que te pongas en serio con esto, si quieres seguir usando Perl.

Por dónde empezar.

por **enric73** » 2012-04-19 10:50 @493

¡Gracias, explorer!

Un saludo a todos.

Foro - Perl en Español

Editar ficheros .dat en un solo .dat y por columnas

Re: Editar ficheros .dat en un solo .dat y por columnas

Publicidad

Re: Editar ficheros .dat en un solo .dat y por columnas

Re: Editar ficheros .dat en un solo .dat y por columnas

Re: Editar ficheros .dat en un solo .dat y por columnas

Re: Editar ficheros .dat en un solo .dat y por columnas

Re: Editar ficheros .dat en un solo .dat y por columnas

Re: Editar ficheros .dat en un solo .dat y por columnas

¿Quién está conectado?