Foro - Perl en Español

El código anterior toma las respuestas de la base de datos y las retorna a una plantilla usando template toolkits, lo que no logro solucionar es cómo ordenar las respuestas ya que no tienen un orden lógico... el id_respuesta en un entero que se incremente en 1 cada vez que se realiza una respuesta.

¿Qué es esto?
[mas $respuestas->{$_}, keys %$respuestas]

El problema es que al guardar el resultado en un hash, el orden de los datos ya no coincide con el orden de los datos recuperados (es algo intrínseco al comportamiento de los hash).

Si el orden es importante, es mejor usar otro método, como selectall_arrayref().

Estoy usando hashref porque necesito los nombres de los campos de la base de datos para mostrar el template. Por ejemplo:


Respuesta sería uno de los campos de la tabla.

selectall_hashref() sacará los registros, indexados por el campo 'id_respuesta'.

Dices que es numérico, así que podríamos ordenarlo de esa manera.

$respuestas = [ map { $respuestas->{$_} } sort {$a <=> $b} keys %{$respuestas} ];

De esa manera, $respuestas acaba siendo una referencia a un array con todos los registros ordenados numéricamente y de menor a mayor, según la clave de %$respuestas.