'medida1' => [
5,
10,
15
],
'medida3' => [
35,
40,
45
],
'medida4' => [
50,
55,
60
],
'medida2' => [
20,
25,
30
]
};
Coloreado en 0.000 segundos, usando GeSHi 1.0.8.4
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:
Using perl Syntax Highlighting
- #!/usr/bin/perl
- print "¿Qué mes quieres sumar?";
- $mes=<STDIN>;
- chop($mes);
- for(r=0;r<=4;$r++){
- $fich = "C:/datos/$mes/semana$r/datos.csv";
- $fich2 = ">C:/datos/$mes/sumatorio.csv";
- open (DATOS,$fich) || die "No pudo abrirse: $!";
- open (salida,$fich2) || die "No pudo abrirse: $!";
- while (my $linea = <ENTRADA>) {
- my ($unidad, $medida1, $medida2, $medida3) = split(/;/, $linea);
- }
- }
- close DATOS;
- close salida;
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
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!