Foro - Perl en Español

Hola, Tengo una duda que me está siendo imposible solucionar, pero creo que es bastante simple. Os pego el código:

$sql = 'SELECT * FROM test WHERE test_id = 1';
my $resultado = $db->selectall_hashref($sql,'test_id');

La cosa que cuando guardo en '$resultado', me da los valores sin organizar el índice del hash, son totalmente aleatorios, y a yo quiero organizarlo por orden descendiente.

Si yo hago un: 'sort $resultado', me ordena por un lado el índice y por otros, los datos. ¿Cómo tendría que hacerlo para poder tener una copia de '$resultado' pero con el índice ordenado?

A ver si me pudierais ayudar, que estoy algo perdido.

Muchas gracias.

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

El problema está en la naturaleza del funcionamiento de los hash en Perl: la forma de guardar los pares índice/valor es aleatoria (bueno, no lo es, pero a efectos nuestros como programadores, sí). A la hora de recuperarlos, lo haremos en un orden muy diferente al que fueron creados.

La solución pasa por no usar un hash, si no un array.

O también, realiza el sort(), pero referido al campo por el que quieres ordenador. Algo así:

my @ordenados = sort { $resultado->{$a}->{'id'} <=> $resultado->{$b}->{'id'} } keys %$resultado;

Con esto, estamos ordenando el hash referenciado por $resultado, usando una comparación numérica (<=>) ascendente, entre los valores de los índices 'id'.

Quizás sea más cómodo usar selectall_arrayref().

Hola, explorer. Pues creo que voy a tener que hacerlo de otro modo, es que estoy usando HTML::Template::Associate, para asociar los valores devueltos directamente por DBI a la plantilla de HTML.

Código Asociativo DBI & HTML::Template :

my $union = HTML::Template::Associate->new( {
target => 'DBI',
create => [ {
results => $resultado,
name => $loop,
type => 'selectall_hashref'
}
]

Claro, haga lo que haga entonces ¿me va a tener desordenado el hash siempre? porque lo que me has indicado arriba me devuelve un array con los índices por orden.

¿No hay ningún modo de mantener el hash ordenado entonces?

Saludos y muchas gracias.

Viendo la documentación de HTML::Template::Associate::DBI, sí que puedes usar el método selectall_arrayref().

Si quieres mantener un hash ordenado, puedes usar un módulo como Tie::IxHash (hay más en CPAN).