Belirli bir siparişle bir listeyi nasıl sıralayabilirim?

Question

Aşağıdakileri yapmaya çalışıyorum. Belirli bir listedeki "order by" olarak kullanılacak önceden tanımlanmış bir listeye sahibim.

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

Sıralamak için sonsuz yöntemler denedim ve istediğimi alamadım. Google'da arama yaptım ve burada, ama cevabı bulamadım.

@list ihtiyacı bu şekilde sıralanmasını:

sort @list using %orderby 

Ben sıralamadan sonra istediğiniz yazdırma: BTW

car, boat, chicken, mouse 

, @list çoğaltılmış olabilir girişleri:

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

Bu durumda, baskı şu şekilde olmalıdır:

car, car, boat, chicken, mouse, mouse

Bunun için bir çözümünüz var mı? veya belki başka bir yaklaşım. Teşekkürler!

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; 

---

Yoksa insanların kafasında ile karışıklık, Şüphesiz

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

Sırası ile potansiyel öğelerin listesini varsa ve istediğiniz öğelerin daha küçük bir liste istiyorsanız seçmek için, bu aslında bir seçim problemidir ve bir sıralama problemi değil midir? O'da

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

çalıştırır (n) yerine O (n log n) çok :)

Answer 3

Radix sıralama bu durum için iyi bir seçimdir daha zamanı: Güncellemenize Re

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