क्या मैं पर्ल में सॉर्ट की तुलना उपरोक्त की तुलना में तर्क पारित कर सकता हूं?

Question

मैं एक स्वनिर्धारित तुलना सबरूटीन मैं लिखे से sort उपयोग कर रहा हूँ:

sub special_compare { 
# calc something using $a and $b 
# return value 
} 

my @sorted = sort special_compare @list; 

मैं जानता हूँ कि यह सबसे अच्छा उपयोग $a और $b जो स्वचालित रूप से निर्धारित की गई हैं, लेकिन कभी कभी मैं अपने special_compare करना चाहते हैं और अधिक तर्क प्राप्त करने के लिए, यानी:

sub special_compare { 
my ($a, $b, @more) = @_; # or maybe 'my @more = @_;' ? 
# calc something using $a, $b and @more 
# return value 
} 

मैं यह कैसे कर सकता हूं?

Answer 1

sort BLOCK LIST वाक्यविन्यास का उपयोग करें, perldoc -f sort देखें।

आप ऊपर special_compare उप लिखा है, तो आप उदाहरण के लिए, कर सकते हैं:

my @sorted = sort { special_compare($a, $b, @more) } @list; 

Answer 2

आप प्रकार सबरूटीन के स्थान पर बंद का उपयोग कर सकते हैं:

my @more; 
my $sub = sub {   
    # calc something using $a, $b and @more 
}; 

my @sorted = sort $sub @list; 

आप पास करना चाहते हैं @_ में तत्वों की तुलना करने के लिए, ($$) पर subroutine प्रोटोटाइप सेट करें। नोट: यह असुरक्षित subroutine की तुलना में धीमी है।