Wie sortiere ich eine Liste mit einer bestimmten Reihenfolge?

Question

Ich versuche folgendes zu tun. Ich habe eine vordefinierte Liste, die als "Order by" für eine gegebene Liste verwendet werden kann.

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'); 

Ich versuchte unendliche Möglichkeiten, es zu sortieren, und ich habe nicht bekommen, was ich will. Ich habe auf Google gesucht, und hier, aber ich habe die Antwort nicht gefunden.

@list Bedarf auf diese Weise sortiert werden:

sort @list using %orderby 

Der Druck, den ich nach der Art wollen:

car, boat, chicken, mouse 

BTW, können @liste Einträge dupliziert haben:

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

In diesem Fall muss der Druck:

sein 10

car, car, boat, chicken, mouse, mouse

Haben Sie eine Lösung dafür? oder vielleicht ein anderer Ansatz. Danke !!

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; 

---

Oder wenn Sie wollen Chaos mit den Köpfen der Menschen,

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

Sicher, wenn Sie eine Liste aller potenziellen Produkte haben, um, und eine kleinere Liste der Artikel, die Sie wollen auszuwählen, dann ist das eigentlich ein Auswahlproblem und kein Sortierproblem?

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

Runs in O (n) Zeit statt O (n log n) zu :)

Answer 3

Radix Art ist eine gute Wahl für diesen Fall:

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