Могу ли я передать аргументы в подпрограмму сравнения вида в 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;

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