Foro - Perl en Español

Hola:

Tengo un fichero así



Tengo que agrupar de los que empiecen por la misma letra.
Mi intención es cargarlo en un array de dos dimensiones.
Cargo todos los que empiezan por a:

y ahora quiero ordenarlo

y ahora hago la agrupación.

Quiero:
pintar "a", el primer valor de la primera segunda columna, la suma de la tercera columna, y el último valor de la última columna, es decir: a,1,4+5+5,6.

¿Cómo hago para construir el array de dos dimensiones partiendo de un fichero y luego poder decirle qué quiero?

Navegar a la posición que yo quiera, a la array[0,0], o a la array[0,valor máximo],
@array[0,0], @array[0,1], @array[0,3]+@array[0,4], array[1,5].

Gracias.

Bienvenido a los foros de Perl en español, coloradito.

Te vale con hacer un bucle por todas las líneas del archivo.
Por cada línea, la partes en columnas con la ayuda de split().

Una vez que tengas la información en la matriz, ya la puedes ordenar.

Tienes que recorrer la matriz ordenada, también por filas, para sacar las estadísticas que te piden...

Muéstranos algo de código...

Hola, tengo algo como esto:

Me creo un array de dos dimensiones.
Tengo un fichero muy grande, por lo que no quiero cargar todo el fichero en un array, sino ir creando arrays pequeños según voy leyendo el fichero (el fichero ya está ordenado por el primer campo).
Según leo el fichero, todos los registros que empiezan por el mismo campo los meto en un array de dos dimensiones.
Luego lo puedo ordenar.
Pero cuando me toque el momento de totalizar quiero, por ejemplo, poder acceder a la primera línea del array y de la columna 4.

No sé cómo acceder directamente a una posición del array es decir: leer @$array[3,0] o acceder a la última línea del array @$array[$last_line,4].

Tengo muchos campos y quiero sobreescribir valores sobre la última línea para luego poder imprimir el resumen solo con

print join( '_', @$pinta[$lastline] ), "\n";

Es decir: a la última línea del array le quiero meter el acumulado.

Ejemplo: @$pinta[$lastline,3]=@$pinta[0,3] reemplazo el valor de la última línea en la columna 3 por el valor de la columna 3 de la primera línea.

¿Hay una variable que me diga cual es el número de líneas del array de dos dimensiones?
Quizás tengo que construir el array de 2 dimensiones de otra manera.

Gracias.

La explicación del funcionamiento básico de los array (y el acceso a sus elementos), lo tienes en tu ordenador, con perldoc perldata (traducido). La explicación de cómo funcionan las estructuras complejas, la tienes en perldoc perlref. Un recetario de usos de estructuras complejas la tienes en perldoc perldsc (traducido). Y, finalmente, existe un documento específico para el tratamiento de estructuras bidimensionales, en perldoc perllol (traducido).

Si tenemos un array @array, entonces podemos:

• acceder al elemento número 3: $array[3]
• acceder al elemento octavo: $array[7] (los array empiezan en 0)
• acceder al último elemento del array, si no sabemos qué índice tiene: $array[-1]
• número de líneas del array: $n = @array
• acceder al elemento 3 de la línea 2: print $array[2]->[3], o print $array[2][3]
• obtener los elementos 4 y 6 del array: ($cuatro, $seis) = @array[4,6]

En el código...

• en la línea 11 no se puede comparar así dos líneas. Hay que hacerlo elemento a elemento. Solo en Perl 6 se pueden realizar cosas así

Edito: Sí que se pueden comparar dos array, para ver si son iguales, por medio del operador smart match (coincidencia inteligente), '~~', a partir de Perl v5.10. Pero los elementos de los array sí que han de ser básicos (escalares), para poderse comparar.

Hola:

Gracias por la información.
Al final encontré ejemplo de cómo hacerlo.
Dejo el ejemplo por si alguien llega a este post con la misma duda.