Foro - Perl en Español

¿Cómo puedo hacer para unir 2 array para que me muestre los datos ordenados como se indica líneas abajo?


y obtener el siguiente resultado

Bienvenida a los foros de Perl en español, mariel.

Debes hacer un bucle que recorra los índices de uno de los array, y dentro de él, ir creando los elementos del hash a partir de los elementos indexados de los arrays.

¿Cómo? ¿Podriís darme un ejemplo? Soy nueva en esto.

Estoy realizando esto:

%mzdata = map { @monto[$_] => @fecha[$_] };
foreach my $llave (reverse (sort keys %mzdata)){
//imprimo los valores

}

Pero no sale nada.

Gracias por la ayuda. ¿Y cómo haría para ordenarlo utilizando reverse (sort)?

Pues usando reverse y sort, según lo que quieras ordenar.

No me sale.

Tengo esto:
%mzdata= ('59932','20-01-2011 AL 26-01-2011','57,437.00','30-12-2010 AL 05-01-2011','221,189.00','13-01-2011 AL 19-01-2011');

foreach my $llave(reverse(sort keys %mzdata)){
$G++;
sprintf($mzdata{$llave});
sprintf("%02d",$llave);

}

pero no lo ordena bien. Sale ordenado así:

20-01-2011 AL 26-01-2011 59,932.00
30-12-2010 AL 05-01-2011 57,437.00
13-01-2011 AL 19-01-2011 221,189.00

No toma en cuenta el valor de 6 dígitos.

Sale:

y ya sale ordenado numéricamente en orden inverso.

La función sort(), por defecto, solo hace ordenación alfabética, no numérica. Por eso tenemos que poner la subrutina { $a <=> $b }, para indicar que la ordenación debe usar el operador numérico '<=>'.

Otro detalle... nos podemos ahorrar el reverse() si cambiamos un poco más la subrutina del sort():

Cambiando el orden de $a y $b, indicamos si el orden es ascendente o descendente.

Finalmente... no hace la comparación con los seis dígitos... porque las ',' no forman parte de un número. Debes quitarlas antes.

Muchas gracias.