Ahora estoy con un problema al intentar ordenar un arreglo de hashes.
El punto es que ejecuto un procedimiento almacenado que me retorna un arreglo donde los elementos del mismo son hashes a los campos de la respuesta del procedimiento.
El código es:
Using perl Syntax Highlighting
while (my $hash_ref = $csr->fetchrow_hashref)
{
my $orden = $hash_ref->{'ORDENAMIENTO'};
my $codigo_plan = $hash_ref->{'CODIGOPLAN'};
my $nombre_plan = $hash_ref->{'NOMBREPLAN'};
my $valor_plan = $hash_ref->{'VALORPLAN'};
$hash_ref->{'CODIGOPLAN'} =~ s/ //g;
push(@result, $hash_ref);
}
{
my $orden = $hash_ref->{'ORDENAMIENTO'};
my $codigo_plan = $hash_ref->{'CODIGOPLAN'};
my $nombre_plan = $hash_ref->{'NOMBREPLAN'};
my $valor_plan = $hash_ref->{'VALORPLAN'};
$hash_ref->{'CODIGOPLAN'} =~ s/ //g;
push(@result, $hash_ref);
}
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Y lo deseo ordenar por: ORDENAMIENTO, VALORPLAN, CODIGOPLAN
Lo que estaba pensando es en crear un arreglo sólo con los valores a ordenar y ordenarlos:
Using perl Syntax Highlighting
push(@result2, $orden.'|'.$valor_plan.'|'.$codigo_plan);
@result2 = sort(@result2);
@result2 = sort(@result2);
Coloreado en 0.002 segundos, usando GeSHi 1.0.8.4
El punto es cómo poder leer el primer arreglo (no ordenado) utilizando los datos del segundo arreglo.
Gracias