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!

Si suponemos que hay tantos ficheros 'U' como 'V', lo que hay que hacer es 'barajarlos'.


La operación sort() es fundamental, para que los ficheros queden ordenados por hora.

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,
);

enric73 escribiste: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...?

Si no te lo crees, ejecuta esa operación aparte:

Y mira a ver si los archivos salen ordenados por fecha o no. sort() ordena lo que tiene a la derecha. Y en este caso son los nombres de los archivos.

enric73 escribiste: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...

Pues... no sé lo que puede pasar... Si no sale nada, es que los archivos estarían vacíos, o que no hay ningún archivo en el listado de @arxius.

Puedes probar a ejecutar el programa por partes (pon un exit() para que el programa se pare). Y en cada parte, pones un print() para sacar los datos, para ver si ha leído correctamente los archivos. Por ejemplo, sacar el contenido de @arxius para comprobar que, efectivamente, ha leído y ordenado los archivos. O haz un $tabla->write() después del primer bucle, para ver si lo has combinado correctamente.

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!

A ver... dijiste que el número que había en el nombre del archivo representaba las horas del archivo. Así que supuse que los números irían hasta las 23. ¿Cómo es posible que lleguen al 100?

Dicho de otra forma... si tenemos el nombre del archivo UGRD10m00.dat, ¿de qué partes consta y qué rangos de valores puede tomar?

Por ejemplo: "La primera letra es 'U' o 'V'". "Le sigue una cadena fija: "GRD". Y así...

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...

Este mini programa sirve para que veas cómo se puede ordenar según esa cifra (que hay que extraer).

Usamos una expresión regular para extraer la cifra. Si supiéramos que esa cifra tuviera siempre, por ejemplo, tres dígitos, entonces podríamos sustituir la expresión regular por una más rápida substr(). Mejor dicho: no haría falta hacer nada de esto porque con el mismo sort() estaría resuelto. Las quejas, al que se le ocurrió dar nombre a esos archivos de esa manera .

Con la fecha en la mano (quiero decir, en $x), construimos un mini array de dos elementos: la hora y el nombre original del archivo.

Solo queda hacer una transformada de Schwartz para que todo quede ordenado.

Esta es otra versión, más corta, pero más críptica

Solo queda hace el zip para que haga el barajado de los nombres (alternancia), y ya está.

¡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!

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

Por favor:

• Recuerda que "Perl" (primera letra en mayúscula) es el nombre del lenguaje, y "perl" (en minúsculas) es el nombre del intérprete de Perl (el ejecutable)
• Acuérdate de poner marcas de sintaxis Perl a tus trozos de código, para que queden mejor que no solo texto. Para ello, en el momento de escribir los mensajes, fíjate que hay un botón por encima de la caja de texto, que se llama Perl
• Mi nombre es 'explorer', no 'Explorer' (el segundo se refiere al programa de Micro$oft)

enric73 escribiste: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?

A mi no me da error. Apuesto a que tienes alguna línea con el 'endre' por algún sitio, alrededor de esa línea (no exactamente esa línea).

enric73 escribiste:¿Exactamente esta línea qué quiere decir?

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

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

Si no la entiendes es mejor que uses la primera solución. Ahí estamos definiendo una subrutina para sort(). En ella, las variables $a y $b representan dos elementos a ordenar. De cada elemento, le extraemos el número que sigue a la 'm'. La comparación será numérica (<=>). Y como $a aparece antes que la $b, será de forma ascendente. La expresión regular de $b es especial (//) Quiere decir que ahí Perl debe usar el mismo patrón que la última expresión regular usada (que en este caso, será la de la $a). Los números (\d+) que siguen a la 'm' queremos capturalos, así que están encerrados entre paréntesis. Encerramos además las expresiones regulares con otros paréntesis para ejecutarlos en contexto lista (nos devolverá la lista de elementos capturados por los paréntesis de captura). Y los subíndices '[0]' harán que nos quedemos al final con el primer elemento de la lista de elementos devuelta por los paréntesis de lista. En resumen, que de las expresiones regulares salen los números que estaban al lado de las 'm', y los comparamos con el operador matemático '<=>'. De resultas de esta comparación, sort() sabrá ordenar los valores $a y $b dentro de toda la lista de valores a ordenar.

enric73 escribiste: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?

No. $a y $b se refieren a la misma familia de archivos. El 0 se refiere al primer elemento del array creado en la línea siguiente. Te puse el enlace a la Transformada de Schwartz...

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

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

No, es la hora: un conjunto de uno o más (+) dígitos (\d), que siguen a '10m'.

enric73 escribiste: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 .

Te vale con concatenarlo a la fecha. Usa el operador '.'. Más información en tu propio ordenador en perldoc perlop, y en la Web (traducido).