Foro - Perl en Español

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;

No lo has puesto en el sitio correcto.

Lo has puesto en el sitio en que movemos la última fila, a la primera. Vamos, que no tiene nada que ver.

Debes concatenarlo con el strftime(), que es el que genera la fecha.

¡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

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.

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.

Hola explorer,

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



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.

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):

Gracias explorer, unas consultas sobre el código.
1.-¿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.


Muchas gracias.

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.

Buenos días, explorer.

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

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