Foro - Perl en Español

Bueno, traigo de un fichero unos datos que me salen por medio de una función de la siguiente manera: id||nombre||privacidad. Esto es lo que arroja el Dumper:



Como ven lleva un orden, Luego solo quiero crear un hash ID => Nombre
de esta forma:


Pero cuando hago el dumper de %loop obtengo esto:



Lo anterior es que lo que no me convence... de ahí tengo que pasarlo como parámetros de un FormBuilder para que me genere una lista desplegable, pero debe quedarme en orden, por lo menos alfabéticamente. Honestamente, no sé qué es lo que hago mal; he intentado de todo y nada, siempre me quedan de esa forma desordenada por muchos sort() que intente.

Los valores de un hash nunca se guardan en el orden en que se almacenan.

Primer párrafo de perldata: «Perl posee tres tipos de datos básicos: escalares, arreglos de escalares, y arreglos asociativos de escalares, conocidos como "diccionarios". Un escalar es una simple cadena (de cualquier tamaño, limitada solo por la memoria disponible), número o una referencia a otra cosa (que será explicada en perlref). Arreglos normales son listas ordenadas de escalares indexadas por número, empezando por 0. Los diccionarios son colecciones desordenadas de valores escalares indexados por una cadena clave asociada al valor.»

Una vez que tienes la información en un diccionario, ahora depende de cómo quieres obtener la salida de esa información.

Si, por ejemplo, queremos verla ordenada por id, solo tendríamos que ordenar las claves, en este caso, numéricamente:

Sale:


Ahora bien, si lo que quieres es ordenarlo por los valores, y además, alfabéticamente, debemos cambiar la línea 45 por esta otra:


Pero... fíjate que en el $nombre que estás guardando como valor, empieza por un número:


así que si quieres ordenarlos alfabéticamente, deberías antes quitarles esos números:

y ahora sí que sale bien:


Si, de todas maneras, necesitas que el diccionario recuerde el orden de las claves a medida de que fueron creadas, lo tienes resuelto en perlfaq4: How can I make my hash remember the order I put elements into it?

Bueno, esto me parece genial, pero, honestamente, qué tonto fui: FormBuilder ya había pensando en eso y tienes las opciones de ordenar:


Pero por otro lado sí necesitaba esto para desplegarlo también ordenado en un loop de html-template, ahí sí no hay aun nada para eso, pero tocará retornar en un HTML impreso desde Perl.

No es claro para mi pasar un array ordenado a la plantilla de HTML::Template, pero con esto es suficiente. Gracias, explorer.

Buenas de nuevo, tengo un archivo del tipo:



Y quería que cada usuario pueda añadir sus colonias desde la web, pero claro, si lo hacemos de forma normal cualquier modificación quedaría debajo de Sorpound, y lo que yo quiero hacer es que si es Andrés el que añade una colonia se añada justo después de la última colonia de Andrés, es decir, después de Planeta05.
No hace ninguna falta que me deis el código hecho, simplemente si alguien sabe de algún tutorial para hacerlo estaría muy bueno que me diga dónde encontrarlo.

Yo me imagino que debería guardar los datos después de Sorpound (como haríamos normalmente) y luego debería volver a leer los datos guardados, ordenarlos, y guardarlos de nuevo sobreescribiendo el archivo original, pero no estoy nada seguro de todo esto

Agradezco cualquier idea.

Aunque este problema es fácil de solucionar con un módulo como Tie::File, no se me ocurriría hacer una base de datos en un fichero de texto sabiendo que puede ser modificado por varias peticiones a la vez. Puede quedar el fichero destrozado si dos o más usuarios lo modifican al mismo tiempo.

Te recomiendo que uses un motor de base de datos. SQLite estaría muy bien para una base de datos muy sencilla.

No soy experto en ficheros, pero sí tengo ya mucha experiencia... y la verdad es fácil con Tie::File. Yo hice un módulo llamado kreader que permite hacer eso... Lo que podría es enviarte el módulo para que veas cómo manipulo un fichero usando algunas funciones que me permiten adicionar, editar y eliminar registros.

Mira: sería bueno probar tu módulo Así como dices aprenderé a hacerlo yo mismo.

Referente a lo que dijo explorer es algo que quiero hacer, pero en octubre lo más probable. Ahora no tengo tiempo para dedicarle a bases de datos. Y usando flock() problema de archivo corrupto solucionado ¡je,je,je!

Bueno, yo te lo envío, pero perdóname, es que mi equipo donde tengo eso no tiene conexión a Internet y he tenido mucho trabajo.

marcmb escribiste:Y usando flock() problema de archivo corrupto solucionado ¡je,je,je!

... que es justo lo que hace SQLite, pero de forma transparente para el programador.

Danimera, tu tranquilo que no tengo prisa ninguna, y muy agradecido por el módulo.

Explorer, gracias a ti por esa explicación. Se puede decir que solo con vuestra página uno ya puede aprender Perl, entre los tutoriales y el foro sale casi todo sobre Perl.