Come ordinare una lista con un determinato ordine?

Question

Sto provando a fare quanto segue. Ho un elenco predefinito da utilizzare come "ordina per" su una lista data.

my @orderby = ('car', 'boat', 'chicken', 'cat', 'dog', 'mouse'); 
    or 
my %orderby = ('car' => 0, 'boat' => 1, 'chicken' => 2, 'cat' => 3, 'dog' => 4, 'mouse' => 5); 

my @list = ('boat', 'car', 'mouse', 'chicken'); 

Ho provato infiniti modi per ordinarlo e non ho ottenuto quello che volevo. Ho cercato su google e qui, ma non ho trovato la risposta.

@list bisogno di essere ordinata in questo modo:

sort @list using %orderby 

La stampa che voglio dopo l'ordinamento: voci

car, boat, chicken, mouse 

BTW, @List può aver duplicato:

my @list = ('boat', 'car', 'mouse', 'chicken', 'mouse', 'car');

In questo caso, la stampa deve essere:

car, car, boat, chicken, mouse, mouse

Avete una soluzione per questo? o forse un altro approccio. Grazie !!

Answer 1

my @orderby = qw(car boat chicken cat dog mouse); 
my @list = qw(boat car mouse chicken); 

my %orderby = map { $orderby[$_] => $_ } 0..$#orderby; 

my @sorted = sort { $orderby{$a} <=> $orderby{$b} } @list; 

---

Oppure, se si vuole pasticciare con la mente delle persone,

my @orderby = qw(car boat chicken cat dog mouse); 
my @list = qw(boat car mouse chicken); 

my %counts; ++$counts{$_} for @list; 
my @sorted = map { ($_) x ($counts{$_}||0) } @orderby; 

Answer 2

Sicuramente se si dispone di un elenco di tutti i potenziali elementi in ordine, e un elenco più piccolo degli elementi che si desidera per selezionare, allora questo è in realtà un problema di selezione e non un problema di classificazione?

my %items = map { $_ => 1 } @list; 
my @items = grep { $items{$_} } @orderby; 

Viene eseguito in O (n), piuttosto che O (n log n) troppo :)

Answer 3

Radix sort è una buona scelta per questo caso:

use Sort::Key::Radix qw(ukeysort); 
@sorted = ukeysort { $orderby{$_} } @data;