Могу ли я передать аргументы сортировке сортировки в Perl?

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; 

Если вы хотите передать элементы, подлежащие сравнению в @_, установите прототип подпрограммы до ($$). Примечание: это медленнее, чем непрототированная подпрограмма.