Foro - Perl en Español

¡Buenas! Estoy realizando un script y me he atascado, a ver si me podéis echar una mano, os comento la situación.

Tengo una carpeta mensual que contiene 5 carpetas: semana1, semana2. semana3, semana4 y semana5. Cada carpeta contiene un archivo .csv con el mismo formato, con datos para cada semana. Lo que quiero hacer con mi script es crear un archivo csv que sea resultado de sumar el csv de cada semana. Lo que llevo hecho del script me recorre todas las carpetas y me lee los ficheros, lo que no sé cómo hacer es que me los vaya sumando. Esto es lo que llevo hecho:



Quiero sumar lo que he llamado $medida1, $medida2, $medida3. La primera columna la dejo igual ya que es la descripción de la medida que estamos tomando.

¿Alguna idea sobre cómo ir sumando estas medidas que voy leyendo de los archivos y guardarlas en el archivo que he llamado salida?

¡Muchas gracias!

Solo tienes que crear unas variables que vayan guardando los totales, las vas actualizando, y, finalmente, mostrarlas (o guardarlas)

Queda así (no probado):

¡Muchas gracias otra vez, explorer!

Una cosa, esto lo que va haciendo es que me va sumando en la variables $medida1, por ejemplo, todos los valores de medida1 del mismo fichero, ¿no?

Me expresé mal antes, probablemente. Lo que quiero hacer es que $medida1 sea una suma de los 5 medida1 de los 5 ficheros.

Mejor pongo un ejemplo que se entiende mejor. Es igual para medida1, medida2 y medida3. Pongo un ejemplo con los archivos:

Semana1:
entrada.csv:

medida1 1 2 3
medida2 1 2 3
medida3 1 2 3
medida4 1 2 3

Semana2:
entrada.csv:

medida1 1 2 3
medida2 1 2 3
medida3 1 2 3
medida4 1 2 3

Semana3:
entrada.csv:

medida1 1 2 3
medida2 1 2 3
medida3 1 2 3
medida4 1 2 3

Semana4:
entrada.csv:

medida1 1 2 3
medida2 1 2 3
medida3 1 2 3
medida4 1 2 3

Semana5:
entrada.csv:

medida1 1 2 3
medida2 1 2 3
medida3 1 2 3
medida4 1 2 3

Salida.csv:

medida1 5 10 15
medida2 5 10 15
medida3 5 10 15
medida4 5 10 15

Lo he señalado por colores para que se vea más claro, sólo la primera fila, las otras serían la misma suma pero para la 2º fila, 3ª...

¡Gracias!

Entonces, lo que debes hacer es:

* una vez leída la línea, desde el CSV, y separados los campos, identificar a qué medida corresponde

* Puedes usar un hash, usando las medidas como claves, y sus valores, un array anónimo, con tantos elementos como columnas restantes

* La suma sería algo así:
for my $j (1..$columnas) {
$medidas{$medida_id}[$j] += $medida[$j];
}

* Después de haber procesado todo los ficheros, solo queda recorrer las claves, de forma ordenada, de las %medidas, y por cada una de ellas, sacar las columnas, en una nueva fila CSV.

Perfecto, explorer, creo que lo he entendido. Me pongo con ello estos días y a ver qué tal... ¡Muchas gracias!

Bueno he intentado hacer lo que me comentaste pero creo que bastante regular. El final para ir sacando las claves no lo he entendido, no he trabajado apenas con hash y no tengo mucha idea...

Yo he elegido que la salida sea por orden alfabético:


Y sí, aprender a usar los hash, array, hash de array, y otras estructuras complejas, ahorra bastante código.

Recuerda: Data::Dumper es tu amigo. Si agregas esto al final del programa:

sale
y así se ve la estructura que estás manejando.

Perfecto, ¡¡¡muchas gracias, explorer!!! Lo miraré estos días a ver qué tal...