Comment trier plusieurs tableaux selon un tableau?

Question

I ont une structure de données comme suit

@colors = qw(red blond green); 
@numbers = qw(349 1234.5678 3.14159265); 
@hats = qw(fedora porkpie bowler); 
my %hash = (colors => \@colors, numbers => \@numbers, hats => \@hats); 

Je souhaite régler ce en fonction des valeurs de l'un des réseaux, le maintien de l'association d'éléments de réseau parallèles. Autrement dit, si j'échange $hash{numbers}[2] et l'index $hash{numbers}[3], je veux faire le même échange pour tous les autres tableaux dans le hachage. Dans ce cas, si je sort {$a <=> $b} sur numbers:

$sorted{numbers} = [3.14159265, 349, 1234.5678]; 
$sorted{colors} = ["green", "red", "blond"]; 
$sorted{hats} = ["bowler", "fedora", "porkpie"]; 

La solution que je utilise maintenant la structure intervertit de %hash dans un tableau où $array[$i]{$k} == $hash{$k}[$i], ne @sorted = sort {$a->{numbers} <=> $b->{numbers}} @array, puis convertit @sorted retour de tableau de hachages à hachage de tableaux .

Je ne m'inquiète pas vraiment si le tri est stable, je me demande juste s'il y a une meilleure manière de le faire.

Answer 1

Voici un truc que j'ai utilisé.

my @permutation = sort { $numbers[$a] <=> $numbers[$b] } (0..$#numbers); 
@colors = @colors[@permutation]; 
@numbers = @numbers[@permutation]; 
@hats = @hats[@permutation]; 
# No change to %hash needed, since it has references to above arrays.