Bağımsız değişkenleri Perl'deki sıralama alt yordamına iletebilir miyim?

Question

ben yazdım özelleştirilmiş karşılaştırma altprogramıyla sort kullanıyorum: bazen daha argümanları almak benim special_compare istiyorum

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

my @sorted = sort special_compare @list; 

Ben iyi kullanım $a ve otomatik olarak ayarlanır $b olduğunu biliyorum, ama, örneğin:

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

Bunu nasıl yapabilirim?

Answer 1

sort BLOCK LIST sözdizimini kullanın, bkz. perldoc -f sort. Yukarıdaki special_compare alt yazılı varsa

, sen mesela yapabilirsiniz:

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

Answer 2

sort Değişmeze yerine kapatılmasını kullanabilirsiniz

: Eğer geçmek istiyorsanız

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

my @sorted = sort $sub @list; 

@_'da karşılaştırılacak öğeler, alt yordamının prototipini ($$) olarak ayarlar. Not: Bu, kısıtlanmamış alt programdan daha yavaştır.