Foro - Perl en Español

¡Buenas noches, explorer!

Lo que necesito es leer todos los archivos, ordenarlos por hora, e intercalar los archivos 'U' y 'V', ¡pero con una columna para cada archivo! Como en el script anterior, pero intercalando las componentes 'U' y 'V'. La hora aparece al final de cada archivo_hh.dat.

Aquí muestro un script en el que se hace lo mismo (bueno,las unidades en las columnas no están alineadas si hay algún valor negativo) pero prefiero conocer cómo se haría con su script anterior que llama use Data::CTable.

Muchas gracias!

Hola, explorer. Buenas tardes, gracias por la respuesta.

He utilizado los comandas que me has facilitado, pero no me funciona.

Le adjunto el script que tengo.

Me comenta que la operación sort() ordenada los ficheros por hora. En mi caso, la hora de cada fichero está en el mismo nombre del fichero, es decir, UGRD10m00.dat, VGRD10m00.dat, UGRD10m03.dat, VGRD10m03.dat, la hora es 00, 03, 06, 09, cada 3 horas... Igualmente la operación sort() funciona de esta manera, creo que no, pienso que mira la hora de creación del fichero, ¿no? Si es así, ¿cómo podría hacer que mire la hora a partir del nombre del fichero...?

Cuando ejecuto el script, me genera la carpeta, el fichero.dat, con la fecha pero sin datos. No sale ningún error de compilación... Gracias

#!/usr/bin/perl
use v5.10;
use Data::CTable;
use POSIX 'strftime';
use Class::Date qw(date now);
use List::MoreUtils 'zip';


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

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),
});
$tabla->row_move($llarg, 0);


# Sortida
$tabla->write(
_FileName => '/home/enric/ASCII/2012033000/vents.dat',
_FDelimiter => "\t",
_HeaderRow => 0,
);

explorer,

muchas gracias. Realmente el comando sort() va muy bien, me ordena los ficheros por orden del 0 al 99, pero si tengo algún fichero por encima del 99, por ejemplo el 101, 102, me lo cuela a partir del 10, los ordena entre el 10 y el 20.

¿Cómo puedo evitar que las centenas queden entre el 10 y el 20?

A parte de esto he añadido un argumento para que me guarde el vent.dat automáticamente en una carpeta con la fecha del día y que vaya a buscar los ficheros automáticamente en carpetas descritas por fechas, y funciona.

if (@ARGV != 1 )
{
us_programa();
}

# Data o hora
chomp($flag = $ARGV[0]);
sub us_programa
{
print "Us del programa: Ventsdat yyyymmdd[hh]\n";
print "Ex: Ventsdat 2009102800\n";

exit(1);
}

Me funciona.

También necesito añadir un segundo argumento en la primera fila, al lado de la fecha el siguiente dato como argumento 000000 o 120000

es decir

20120403 000000

¿Cómo podría hacerlo para que me aparezca al lado de la fecha en la primera línea?
# Posem la data
my $llarg = $tabla->length();
$tabla->row_set($llarg, {

1 => strftime('%Y%m%d' , localtime),
});
$tabla->row_move($llarg, 0);

Los argumentos (de momento 1) los entro de la siguiente manera desde el crontab de shell,
00 06 * * */..../Vent.dat `date +\%Y\%m\%d
--date='today'`00

Lógicamente si introduzco un nuevo argumento tendré que poner

if (@ARGV != 2 )
{
us_programa();
}

# Fecha
chomp($flag = $ARGV[0]);

# Hora simulación
chomp($hs = $ARGV[1]);

sub us_programa
{
print "Us del programa: Ventsdat yyyymmdd[hh] 000000\n";
print "Ex: Ventsdat 2009102800 000000\n";

exit(1);
}

¡Muchas gracias, master!

Hola explorer,

Gracias por la ayuda.

• Los ficheros .dat empiezan por U (componente U del viento) y por la V (componente Y del viento)
• Luego viene la parte fija para las dos componentes GRD10m
• Luego la hora de simulación del viento (para las dos componentes) pero que va sumándose cada 3 horas sin volver a las 01 horas después de las 24h. Mi rango va de 0 horas a 150 horas. Es decir, cuando llega a las 21 horas, luego vienen 24 horas, 27 horas... 102 horas...

¡Hola, explorer!

¡Me ha funcionado de la primera manera! ¡Esto del Perl tiene realmente muchas posibilidades!

He probado la segunda manera, pero me sale error en la línea

sub ordena_por_hora { ($a =~ /m(\d+)/)[0] <=> ($b =~ //)[0] };

Illegal declaration of subroutine main::endre at ./Ventsdat.pl line 70

¿Quiere decir que habría de instalar el módulo main::endre con el CPAN?

¿Exactamente esta línea qué quiere decir?

sub ordena_por_hora { ($a =~ /m(\d+)/)[0] <=> ($b =~ //)[0] };

¡¡¡¡Realmente es críptica!!!!

Más preguntas. En la línea
sort { $a->[0] <=> $b->[0] } # Ordenamos numéricamente y de forma ascendente

¿$a se trata de los ficheros_U y $b de los ficheros_V? ¿el 0 de dentro qué significa?

map {
($x) = $_ =~ /10m(\d+)/; # Extraemos la hora

En este caso, el d+ es el número del fichero que corresponde a la hora, ¿no?

¡Última consulta!

También necesito añadir un segundo argumento en la primera fila, al lado de la fecha el siguiente dato como argumento: 000000 o 120000. Ya sé maniobrar con los argumentos, simplemente necesito añadir en la primera fila junto con la fecha el dato 000000 o 120000 como argumento cuando lanzo el script: ./Ventsdat 2012040300 000000 .

Es decir, necesito que en la primera fila salga

20120403 000000

¿Cómo podría hacerlo para que me aparezca al lado de la fecha en la primera línea?

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

1 => strftime('%Y%m%d' , localtime),
});
$tabla->row_move($llarg, 0);

Los argumentos (de momento 1) los entro de la siguiente manera desde el crontab de shell,
00 06 * * */..../Vent.dat `date +\%Y\%m\%d --date='today'`00

Lógicamente si introduzco un nuevo argumento tendré que poner

if (@ARGV != 2 )
{
us_programa();
}

# Fecha
chomp($flag = $ARGV[0]);

# Hora simulación
chomp($hs = $ARGV[1]);

sub us_programa
{
print "Us del programa: Ventsdat yyyymmdd[hh] 000000\n";
print "Ex: Ventsdat 2009102800 000000\n";

exit(1);
}

¡Muchas gracias, explorer!