Foro - Perl en Español

por **enric73** » 2012-03-16 06:59 @333

Hola compañeros, a ver si alguien me puede ayudar. Con el siguiente script, quiero adjuntar unos 40 ficheros .dat en uno de solo. Pero no quiero que se guarden en una sola fila. Necesito que los datos de cada fichero (están por columna) se guarden por columnas separadas las unas de las otras en el fichero único. Tal como tengo el siguiente script, se guardan todas las columnas en una sola columna. ¿Alguien puede ayudarme? Muchas gracias

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
# ************************************************************************** #
# Script para juntar ficheros .dat en uno solo y en columnas                #
# ************************************************************************** #
use Class::Date qw(date now);
use File::Path;
 
 
# ----------------------------------------------------------------------------
# Ruta de los archivos .dat
# ----------------------------------------------------------------------------
#
 
 
# Dispongo de unos 40 ficheros que empiezan con el nombre UGRD
my @fitxers = </home/enric/ASCII/2012031600/UGRD*>;
 
open (FICHEROS,">viento.dat") or die "$!\n";
 
foreach $fitxer ( @fitxers) {
        open (FITXER, "<$fitxer") or die "$!\n";
        print FICHEROS <FITXER>;
 
        close (FITXER);
}
 
close FICHEROS;
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

use warnings;
use strict;
 
die qq[No input files\n] unless @ARGV;
 
my (%data);
 
while ( <> ) { 
    chomp;
    push @{ $data{ $. } }, $_ || qq[];
} continue {
    close ARGV if eof;
}
 
for ( sort keys %data ) { 
    printf qq[%s\n], join qq[\t], @{ $data{ $_ } };
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Contenido de archivos de prueba:

file1

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

xyz033E

xyz033F

xyz033G

xyz177EColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

file2

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Iub_xyz032

Iub_xyz033

Iub_xyz069

Iub_xyz070Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

file3

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

BB152

AA124

CC546

DD234Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Ejecutado así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl myscript.pl file{1,2,3}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

Da el siguiente resultado:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

xyz033E Iub_xyz032      BB152

xyz033F Iub_xyz033      AA124

xyz033G Iub_xyz069      CC546

xyz177E Iub_xyz070      DD234Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-03-16 11:13 @509

Muchas gracias Birei,

Una consulta: me dice que no puede abrir los archivos file1, file2, file3, los tengo en otro directorio que el pl.

¿Dónde especifico la ruta? En el script que adjunté, aparece la ruta, /home/enric/ASCII/2012031600/.

Otra consulta, Birei: si tengo 40 ficheros, y no quiero especificar en el argumento los 40, si no el total, ¿cómo puedo hacerlo?

Gracias, soy bastante novato...

por **Birei** » 2012-03-16 11:21 @514

Sintáxis: [ Descargar ] [ Ocultar ]

file{1,2,3}

es una sintaxis de Shell, para seleccionar varios ficheros sin escribir el nombre completo de todos, en tu caso haz:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

perl myscript.pl /home/enric/ASCII/2012031600/UGRD*
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Y te pondrá el contenido ordenado. Supongo que todos tendrán el mismo número de columnas, si no habrá que ajustar un poco más la salida.

por **enric73** » 2012-03-16 12:09 @548

¡Hola Birei!

¡Muchas gracias! ¡Funciona! ¡Veo que el comando push() es muy práctico! Tal como está me aparecen las columnas en el terminal. Tal como está este script, para guardar el fichero de salida con todas las columnas, ¿cómo debería ser?

Muy agradecido.

Enric

por **explorer** » 2012-03-16 13:15 @594

Esta es mi solución:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Data::CTable;
 
my $tabla = Data::CTable->new({ _HeaderRow => 0, });
 
$tabla->combine_files([</home/enric/ASCII/2012031600/UGRD*>]);
 
$tabla->write( 
    _FileName   => 'vientos.dat',
    _HeaderRow  => 0,
    _FDelimiter => "\t",
);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-03-16 14:52 @661

Gracias explorer,

¡He de instalar con el cpan el Data::CTable! No está instalado.

A ver si se instala y lo pruebo.

Muchas gracias.

por **enric73** » 2012-03-18 07:15 @343

Buenos días explorer.

Ya he instalado el módulo con perl -MCPAN -e 'install Date::CTable'

He ejecutado el script que me facilitó, corre sin problemas, pero solamente me guarda el último fichero .dat que hay en el directorio, solamente aparece una columna que pertenece al último fichero... No aparecen las otras columnas de datos que corresponden al resto de ficheros...

¿Qué debería modificar en el script anterior? ¿No debería introducir el comando push()?

Muchas gracias.

por **explorer** » 2012-03-18 10:11 @465

Fíjate que en la línea 6 hay unos corchetes...

Para estar más seguros, podrías hacer:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my @archivos = </home/enric/ASCII/2012031600/UGRD*>;
 
print "Uniendo ", scalar(@archivos), " archivos\n";
 
$tabla->combine_files( \@archivos );
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-03-18 12:52 @577

Muchas gracias explorer,

he dejado el script de esta manera:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Data::CTable;
 
my $tabla = Data::CTable->new( { _HeaderRow => 0, } );
 
my @archivos = </home/sam/enric/ASCII/UGRD*>;
 
print "Uniendo ", scalar(@archivos), " archivos\n";
 
$tabla->combine_files( \@archivos );
 
$tabla->write(
    _FileName   => 'vientos.dat',
    _HeaderRow  => 0,
    _FDelimiter => "\t",
);
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Varias cosas,

De esta manera la primera línea de los diferentes ficheros planos no se conserva... ¿Tiene alguna relación con el HeadorRow?
Al final del proceso, querría añadir en la fila 1 del fichero final con la fecha del año (yyyymmddhh), ¿qué comando me recomienda que al introducir esta fila no me borre el resto? Ya tengo instalado el Class::Date
Otra consulta, al ejecutar el script, se genera de forma paralela un carpeta llamada cache/ con ficheros UGRD*.dat.cache, ¿para qué sirven?

¡Muchas gracias otra vez!

Foro - Perl en Español

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

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

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?