किसी दिए गए ऑर्डर के साथ सूची को कैसे क्रमबद्ध करें?

Question

मैं निम्नलिखित करने का प्रयास कर रहा हूं। मेरे पास एक दी गई सूची पर "ऑर्डर बाय" के रूप में उपयोग की जाने वाली पूर्वनिर्धारित सूची है।

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

मैंने इसे सॉर्ट करने के अनंत तरीकों की कोशिश की और मुझे जो चाहिए वह मुझे नहीं मिला। मैंने Google पर और यहां खोज की है, लेकिन मुझे जवाब नहीं मिला।

@list जरूरत है कि रास्ते में हल हो रहे हैं:

sort @list using %orderby 

प्रिंट है कि मैं प्रकार के बाद हैं:

car, boat, chicken, mouse 

Btw, @list दोहराया गया है सकते हैं प्रविष्टियों:

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

उस स्थिति में, प्रिंट होने की आवश्यकता है:

car, car, boat, chicken, mouse, mouse

क्या आपके पास इसके लिए कोई समाधान है? या शायद एक और दृष्टिकोण। धन्यवाद !!

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; 

---

या आप लोगों के मन के साथ गड़बड़,

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

निश्चित रूप से अगर आप आदेश में सभी संभावित मदों की एक सूची है, और आइटम आप चाहते हैं की एक छोटी सूची करना चाहते हैं चुनने के लिए, तो यह वास्तव में एक चयन समस्या है, और एक सॉर्टिंग समस्या नहीं है? हे में

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

चलाता है (एन) के बजाय O (n n लॉग इन करें) भी :)

Answer 3

मूलांक तरह है कि मामले के लिए एक अच्छा विकल्प है की तुलना में समय:,

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