Foro - Perl en Español

¡Hola!

Tengo un hash (%index) que deseo que sea multidimensional; en la primera componente va un nombre propio y en la segunda componente un número que indica la página en la que aparece ese nombre propio, y se le asigna el numero de veces que aparece ese nombre en la página.
No sé si como lo tengo hecho está bien y otro problema es que a la hora de recuperar la información de ese hash no sé hacerlo bien.



Me falla en my %paginas = %index{$buscar}; y no sé si es por la forma de recuperar la información o porque he creado mal el hash.

¡Gracias!

¡Por cierto, me gustaría que las paginas salieran por orden de mayor apariciones a menor apariciones del nombre!

Creo que se puede hacer así:
El problema es que la estructura de datos guarda, y además correctamente, la información del número de apariciones, pero nos piden ordenar por justamente esos valores, no por las claves.

Si extraemos los valores con values, perdemos la relación entre cada valor con su clave correspondiente. Un valor, por sí solo, nos no indica a qué página pertenece.

En la solución propuesta, se plantea crear un hash %veces que es el mismo que %paginas, pero 'con el calcetín vuelto del revés', en que mapeamos cada número de apariciones a la página en que aparecen (se muestran dos formas de hacerlo).

Ahora ya podemos ordenar por las claves de ese hash, y esas claves nos llevarán a las páginas. Usamos sort con el comparador numérico (<=>) y además, para que nos salga de mayor a menor, tenemos que invertir el orden de la comparación, por lo que el $a y $b están cambiados de sitio.

Seguro que hay otras formas...

Muchas gracias, no he probado exactamente el código que tu me das, pero he seguido esta solución de forma parecida y me he encontrado con un problema que creo que ocurre con este código que tu me has escrito también.
El problema es que en tu ejemplo has probado con apariciones del nombre diferentes, 4, 3, 2, etc... Pero en el momento en que se repitan valores de apariciones del nombre como 1, 2, 2, 1, etc. veces para un mismo nombre en diferentes páginas se sobrescribirán cuando le des la vuelta al calcetín como tu dices.
Prueba a poner en tu programa en vez de los valores que has puesto inicialmente estos:



y verás que no sale el número deseado de páginas que contienen ese nombre.
Gracias de todas formas por este código.

Efectivamente, el programa no resuelve el problema porque las nuevas claves no son únicas.

Bueno, pues otra solución es hacer una semi-transformada de Schwartz.

El cambio que hacemos es el siguiente:
En %paginas tenemos una copia del número de páginas y veces que aparece cada término.
Con keys sacamos sus claves (que son los números de página).
Con map transformamos el número de veces que aparece el término de búsqueda y el número de página en un array anónimo de dos valores (observar los corchetes que forman el array anónimo).
El operador sort realiza la ordenación numérica (<=>) de los elementos que se le pasan. Esos elementos son arrays anónimos. Un elemento será $a y otro $b. Como tenemos que ordenar por número de veces que aparecen, hacemos la comparación por el primer componente del array anónimo. Por eso se pone $a->[0] y $b->[0].
El resultado es una lista de elementos en que cada elemento es un array anónimo, y ordenados por la primera componente. Se almacena directamente en @veces.
Sólo queda por pintar el array @veces, extrayendo los componentes de cada elemento.

Quedaría por resolver el problema de ordenar la salida también por número de páginas, pero eso es fácil, pues es sólo cuestión de añadir una comparación más al sort.