Foro - Perl en Español

por **enric73** » 2012-04-04 14:03 @627

Gracias explorer, buenas noches

He mirado los apuntes para concatenarlo a la fecha con el operador '.'.
Y he escrito lo siguiente

# Ponemos la fecha
my $llarg = $tabla->length();
$tabla->row_set($llarg, {

1 => strftime('%Y%m%d' , localtime),
});
# Concatenamos el argumento hs con la fecha

my $llarg2= $llarg." ".$hs;
#print $hs\n;
$tabla->row_move($llarg2, 0);
------------------------------------------------------------------------
Pero me sale el siguiente comentario
Backslash found where operator expected at ./VentsdatDefinitiu.pl line 21, near "$hs\"
(Missing operator before \?)

$hs lo entro como argumento pero no me lo lee, lo he concatenado con la fecha pero no me aparece...

my $llarg2= $llarg." ".$hs;

¡Ya está, explorer! Gracias por la ayuda y paciencia.

# Ponemos la data y la hora simulación
my $llarg = $tabla->length();
$tabla->row_set($llarg, {

1 => strftime('%Y%m%d' , localtime)." ".$hs,
});

$tabla->row_move($llarg, 0);

20120404 000000
-6.37 3.75 -6.19 3.42 -6.17 3.56 -7.08 3.01 -6.81 2.98
-6.43 3.64 -6.24 3.31 -6.23 3.46 -7.13 2.89 -6.86 2.86
-6.49 3.53 -6.30 3.20 -6.29 3.35 -7.18 2.76 -6.91 2.74
-6.55 3.41 -6.36 3.09 -6.35 3.24 -7.22 2.64 -6.96 2.62
-6.61 3.30 -6.41 2.98 -6.40 3.12 -7.27 2.51 -7.00 2.50
-6.67 3.18 -6.46 2.86 -6.46 3.01 -7.31 2.38 -7.04 2.37
-6.72 3.06 -6.51 2.75 -6.51 2.90 -7.35 2.26 -7.08 2.25
-6.78 2.95 -6.56 2.64 -6.56 2.78 -7.39 2.13 -7.12 2.13
-6.83 2.83 -6.60 2.52 -6.60 2.67 -7.43 2.00 -7.16 2.00
-6.87 2.71 -6.64 2.41 -6.65 2.55 -7.46 1.87 -7.19 1.88
-6.92 2.59 -6.69 2.29 -6.69 2.44 -7.49 1.74 -7.22 1.75
-6.96 2.47 -6.72 2.17 -6.74 2.32 -7.52 1.61 -7.25 1.63

por **enric73** » 2012-04-13 06:51 @327

Hola explorer,

Si en el caso tratado en este tema, de juntar los diferentes ficheros .dat de un directorio en uno solo pero en vez de juntarlos en diferentes columnas (como en el caso tratado en este tema) los tuviera que juntar todos en la misma columna, de un tirón, y alternados UGRD10m* y VGRD10m* y ordenados por hora (como es este caso), ¿podría aprovechar toda esta estructura?

Muchas gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# ----------------------------------------------------------------------------
# Arguments del programa:  [yyyymmdd]hh hhmmss
# ----------------------------------------------------------------------------
if ( @ARGV != 2 ) {
    us_programa();
}
 
# Data
chomp( $flag = $ARGV[0] );
 
# hora simulacio GFS
chomp( $hs = $ARGV[1] );
 
#print "$flag"\n;
 
# Comprovem que els parametres siguin correctes
if ( $flag =~ m/^(00|06|12|18)$/ ) {
    $hh = $flag;
    chomp( $yyyymmdd = `date +%Y%m%d` );
    $yymmdd = substr( $yyyymmdd, 2, 6 );
    $real_time = 1;
}
elsif ( $flag =~ m!^(19|20)\d\d(0[1-9]|1[012])(0[1-9]|[12][0-9]|3[01])(00|06|12|18)$! ) {
    $yyyymmdd = substr( $flag,     0, 8 );
    $yymmdd   = substr( $yyyymmdd, 2, 6 );
    $hh       = substr( $flag,     8, 2 );
    $real_time = 0;
}
else {
    us_programa();
}
 
my @arxius_U = </home/enric/v2.22/ASCII/$flag/UGRD10m*.dat>;
my @arxius_V = </home/enricc/v2.22/ASCII/$flag/VGRD10m*.dat>;
@arxius_U = ordenados_por_hora(@arxius_U);
@arxius_V = ordenados_por_hora(@arxius_V);
 
sub ordenados_por_hora {
    my $x;
 
    map      { $_->[1] }
        sort { $a->[0] <=> $b->[0] }
        map {
        ($x) = $_ =~ /10m(\d+)/;
        [ $x, $_ ];
        } @_;
}
 
print "[", join( "][", @arxius_U ), "]\n";
print "[", join( "][", @arxius_V ), "]\n";
 
my @arxius = zip @arxius_U, @arxius_V;
my $tabla = Data::CTable->new();
 
# {
for my $i ( 1 .. @arxius ) {
    my $col = Data::CTable->new;
 
    $col->read(
        _FileName    => $arxius[ $i - 1 ],
        _HeaderRow   => 0,
        _FieldList   => [$i],
        _CacheOnRead => 0,
    );
 
    $col->row_delete(0);
 
    $tabla->combine($col);
 
}
 
for my $i ( 1 .. @arxius ) {
    my @indexs = @{ $tabla->all() };
    my $files  = $tabla->col($i);
 
    my $ample_maxim = 0;
 
    for my $j (@indexs) {
 
        my $valor = $files->[$j] // '';
 
        my $ample = length $valor;
 
        if ( $ample_maxim < $ample ) {
            $ample_maxim = $ample;
        }
    }
 
    for my $j (@indexs) {
        $files->[$j] = sprintf "%*.2f", $ample_maxim, $files->[$j] // 0;
 
    }
 
}
 
## Posem la data
my $llarg = $tabla->length();
$tabla->row_set(
    $llarg,
    {
 
        1 => strftime( '%Y%m%d', localtime ) . " " . $hs,
    }
);
 
$tabla->row_move( $llarg, 0 );
 
#   my $hs = $tabla->length();
#   $tabla->row_set($hs, {
 
#       1 => $hs,
#  });
# $tabla->row_move($hs, 0);
 
# Sortida
chdir("/home/enric/v2.22/ASCII/vents.dat/");
$tabla->write(
    _FileName   => 'vents.dat',
    _FDelimiter => "\t",
    _HeaderRow  => 0,
);
 
# Eliminar fitxers temporals
chdir("/home/enric/v2.22/scripts/");
@files = qw( Ventsdat.pl~ VENT_GFStoWWW300.pl~ VENT_GFStoWWW312.pl~ );
foreach $file (@files) {
    unlink($file);
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-04-13 12:30 @562

Sería aún más sencillo: no nos haría falta el módulo Data::CTable ni ninguna de las líneas en las que intervienen sus funciones y métodos.

Bastaría con leer por pares los ficheros, metiendo los datos en arrays, y luego con el zip de List::MoreUtils, se haría la mezcla.

por **enric73** » 2012-04-15 06:23 @308

Hola explorer,

Estoy un poco atascado con el tema. Pongo el código en Perl.

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 'zip';
 
my @archivos_U =  </home/enric/ASCII/2012041400/UGRD10m*.dat>;
my @archivos_V =  </home/enric/ASCII/2012041400/VGRD10m*.dat>;
 
$i=0;
foreach $archivos_U (@archivos_U) {
        print "leyendo ", $archivos_U,"\n";
        @uval = ();
        open(ARCHI_U,"$archivos_U[$i];
        while(<ARCHI_V>) {
        chomp;
        $val = sprintf("%.2f", $_);
        open(ARCHI_V,"$archivos_V[$i];
        chomp;
        $val1 = sprintf("%.2f", $_);
        push(@uval, $val,$val1);
        }
$i++;
#my @archivos = zip @archivos_U, @archivos_V;
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En el programa intento leer los archivos U y V a pares y luego meterlos por orden en un fichero .dat en una simple columna. No sé si de esta manera, con este bucle voy bien.

¿Alguien puede ayudarme? Gracias. Buen fin de semana.

por **explorer** » 2012-04-15 08:10 @382

Fíjate en los colores que esta propia página está poniendo a tu código: Te está mostrando que te faltan unas comillas dobles

Tienes desordenadas las órdenes de open() y lectura de los archivos. Por ejemplo, en la línea 14 abres ARCHI_U, pero en la línea siguiente estás leyendo desde ARCHI_V.

Lo mejor es leer todo de golpe (usar la memoria), leer por pares con each_array(), formatear, y sacar todo.

Algo así (no probado):

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 each_array>;
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 @dat;
 
my $ea_archivos = each_array(@archivos_U, @archivos_V);
 
while ( my( $archivo_u, $archivo_v ) = $ea_archivos->() ) {
 
    # Abrimos archivos
    open my $U, '<', $archivo_u;
    open my $V, '<', $archivo_v;
 
    # Leemos archivos
    my @u = <$U>;
    my @v = <$V>;
 
    # Comprobación
    die "ERROR: No tienen el mismo número de líneas los archivos $archivos_U[$i] y $archivos[$i]."
        if @u != @v;
 
    # Cerramos archivos
    close $U;
    close $V;
 
    # Mezcla
    my $ea_cols = each_array(@u, @v);
 
    while( my($u, $v) = $ea_cols->() ) {
        push @dat, sprintf"%.2f %.2f", $u, $v;
    }
}
__END__
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **enric73** » 2012-04-15 15:51 @702

Gracias explorer, unas consultas sobre el código.
1.-

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $ea_archivos = each_array(@archivos_U, @archivos_V);
 
while ( my( $archivo_u, $archivo_v ) = $ea_archivos->() ) {
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿Con qué identifica la primera línea el escalar? ¿Exactamente qué conseguimos con esta línea? ¿Y la siguiente?

2.- Intento guardar el resultado en un fichero de salida, lo creo, pero los datos no se guardan bien, adjunto el fichero entero y las lineas añadidas para ver dónde tengo el error.

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 each_array>;
    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 @dat;
     
    my $ea_archivos = each_array(@archivos_U, @archivos_V);
     
    while ( my( $archivo_u, $archivo_v ) = $ea_archivos->() ) {
     
        # Abrimos archivos
        open my $U, '<', $archivo_u;
        open my $V, '<', $archivo_v;
     
        # Leemos archivos
        my @u = <$U>;
        my @v = <$V>;
     
        # Comprobación
        die "ERROR: No tienen el mismo número de líneas los archivos $archivos_U[$i] y $archivos[$i]."
            if @u != @v;
     
        # Cerramos archivos
        close $U;
        close $V;
     
        # Mezcla
        my $ea_cols = each_array(@u, @v);
     
        while( my($u, $v) = $ea_cols->() ) {
            push @dat, sprintf"%.2f %.2f", $u, $v;
         print "leyendo ", @dat,"\n";
        }
    }
       $file = "ventscol.dat";
        open( DATA, ">$file");
        print DATA @dat;
        close DATA;
    __END__
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Muchas gracias.

por **explorer** » 2012-04-15 20:16 @886

1.- each_array() crea un "iterador" y lo guarda en $ea_archivos. La misión de un iterador es la de devolvernos un elemento distinto, de una serie de elementos, cada vez que lo llamamos. En el bucle while() ejecutamos ese iterador, que nos devuelve un elemento de cada array (de ahí le viene el nombre: each_array) cada vez que se le llama. $archivo_u almacenará cada vez un elemento del array @archivos_U, y $archivo_v hará lo mismo con el @archivos_V.

Es una forma cómoda de sacar valores de los array de forma secuencial y simultánea.

2.- Cuando haces print DATA @dat; Perl despliega los contenidos de @dat, tal cual son. ¿Y cuales son? Pues según lo construimos en la línea 44: cadenas de caracteres SIN RETORNO DE CARRO. Por esa salen todas juntas.

Modifica el sprintf de esa línea agregando un "\n" a la cadena de formato. O modifica la forma de imprimir hacia el archivo, haciendo un bucle, por ejemplo, haciendo un print de cada elemento de @dat, con su "\n" correspondiente.

por **enric73** » 2012-04-16 03:03 @168

Buenos días, explorer.

Al final he añadido "\n" al print():

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

print DATA "@dat, \n";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

En todo caso, ¿cómo modificaría el sprintf() de esa línea agregando un "\n" a la cadena de formato? ¿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?

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?

Gracias

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

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?