Using perl Syntax Highlighting
- #!/usr/bin/perl -w
- use warnings;
- use strict;
- my @vehiculos;
- my @puntos;
- @vehiculos = ("coche", "camion", "bicicleta", "triciclo");
- @puntos = ("1", "1", "0", "1");
- my %hash;
- my $keys;
- @hash{@vehiculos} = @puntos;
- foreach my $keys (sort {$hash{$a} cmp $hash{$b}} keys %hash){
- print "$keys = $hash{$keys}\n";
- }
Coloreado en 0.004 segundos, usando GeSHi 1.0.8.4
Así, como está, me lo imprimiría en base a los valores, de menor a mayor.
Pero si yo quiero imprimirlo en el orden original, o sea, en el mismo orden en el que se situaban en los arrays, ¿cómo se haría?
Muchas gracias.