Foro - Perl en Español

Hola compañeros.

Os pido ayuda otra vez. ¿Cómo puedo hacer el promedio de cada columna? La primera fila tiene el nombre de cada columna:


Estos datos están en un fichero .dat, alturaolas.dat.

El resultado que quiero es


He visto que se puede hacer con y pero no sé cómo hacerlo columna por columna... ¿me podéis ayudar? Gracias

Saludos

¿Qué delimitador hay entre cada columna? No es el espacio en blanco, porque un titular (Gran Sol) tiene un espacio en blanco dentro de él.

¿Están las columnas en posiciones fijas? ¿O es que hay tabuladores entre las columnas?

Puedes leer el archivo y meterlo en un array bidimensional, y luego hacer operaciones con las columnas.

Si, suponemos, que tomamos un doble espacio en blanco como separador de columnas, este programa saca lo que quieres:

Hola, explorer.

Muchas gracias, lo he probado y va como la seda. Consultas varias sobre el código.

¿¿¿qué quieres decir...??? Por ejemplo la líneaqueda de la siguiente manera, ¿separamos las palabras por dos espacios y por una coma?
'Azores', 'Cantabrico', 'Gran Sol', 'Vizcaya'
¿¿¿metemos las líneas dentro de la matriz @datos? ¿y con \ indicamos que estén una debajo de la otra?
# [ 'Azores', 'Cantabrico', 'Gran Sol', 'Vizcaya' ],
# [ '1.50', '2.00', '3.00', '3.00 ' ],
# [ '1.75', '2.24', '3.10', '3.20' ],
# [ '2.00', '2.50', '3.30', '3.10' ],
# [ '1.75', '2.40', '3.50', '3.30' ]
# ];


Gracias

enric73 escribiste:¿¿¿qué quieres decir...??? ¿separamos las palabras por dos espacios y por una coma?

No, estamos ejecutando la función split(), y ésta coge la línea actual y la parte por el delimitador que le hemos indicado (en este caso, todos los sitios donde haya dos o mas espacios en blanco). El resultado es una lista de elementos, que es almacenada en la parte izquierda de la asignación, en este caso, en el array @cols. Cada elemento de @cols almacena una elemento de cada columna.

Más información en perldoc -f split

enric73 escribiste:¿¿¿metemos las líneas dentro de la matriz @datos? ¿y con \ indicamos que estén una debajo de la otra?

El poner un '\' delante del array es porque queremos obtener una referencia a ese array (algo así como un "puntero" o la "dirección de memoria" donde está almacenado ese array). Esa referencia es la que almacenamos como un elemento más en el array @datos.

Al final, tenemos un array (@datos), en que cada uno de sus elementos es una referencia a otro array. Esto es lo mismo que crear una matriz bidimensional en otros lenguajes que usan punteros de memoria, como en C.

Con el módulo Data::Dumper::Perltidy (o con el incluido Data::Dumper) se puede ver la estructura de ese array.

Por ejemplo, para acceder al tercer elemento del quinto elemento de @datos, escribiríamos

print $datos[4]->[2], "\n";

que podemos abreviar a

print $datos[4][2], "\n";

y ya tiene aspecto de matriz bidimensional.

Más información sobre referencias, en tu propio ordenador en perldoc perlref, y en la Web (traducido al español).

Más información sobre ejemplos de estructuras complejas de datos, en tu propio ordenador en perldoc perllol, y en la Web (traducido al español).

Gracias por las aclaraciones explorer.

Otra duda: en la siguiente línea del código, donde se recorren todas las columnas del array @datos, ¿qué significa $#{$datos[0]}? ¿Por qué dentro hay un cero?


Saludos

En principio, no sabemos cuántas columnas tenemos. Pero podemos saberlo viendo cuántas columnas hay en la primera fila, la de los títulos.

En @datos se almacena un elemento por cada fila del archivo. Ese elemento es una referencia a un array, cuyos elementos son las distintas columnas de esa fila.

Entonces, en $datos[0] (primer elemento de @datos), tenemos una referencia al array que almacena los valores de la primera fila, la de los títulos.

Lo que queremos es tener una variable que recorra los índices de las columnas. Debe comenzar en 0 y debe seguir hasta el índice de la última columna.

Para saber qué valor tiene el índice del último elemento, usamos la notación $#. Así, de un array @array, el valor del índice del último elemento será $#array.

Esto lo aplicamos al array referenciado por $datos[0]: Si $datos[0] es una referencia a un array, @{$datos[0]} es el propio array, así que, entonces, $#{$datos[0]} es el valor del último índice del array.

Solo queda usar ese valor para ponerlo en un operador rango: 0 .. $#{$datos[0]}, con lo que el bucle for() está, efectivamente, recorriendo los índices de los elementos del array referenciado por el primer elemento de @datos.

O sea... que podemos recorrer los nombres de los títulos del archivo leído.

Otra forma de escribirlo:

Otra forma, más descriptiva:


Más información y ejemplos en perllol.

Hola explorer,

muchas gracias por la detallada explicación, ahora lo he entendido, gracias.

Saludos.

Hola explorer,

para redondear el promedio de las columnas a un decimal, lo he programado de esta manera

Donde antes había

Ahora lo he cambiado por


¿Es correcta la manera, o es preferible otra? El resultado me sale bien.
Gracias por los consejos.

Saludos

El resultado sale bien, desde luego... pero, fíjate, en la última línea, que estás calculando la media de un solo valor, por lo que obtenemos el mismo valor (media de una número = suma de un número / 1 = el mismo número).

Mejor si lo quitas.

Algo así:

que puede quedar simplificado en
(En Perl se pueden quitar los paréntesis de una función siempre que no afecten a la lógica del resto de la sentencia).

Hola, explorer.

Gracias, es verdad, me he dejado el mean() en la última línea, pero mejor, ¡todo agrupadito en una sola!

Muchas gracias.