我可以将参数传递给Perl中的sort子例程吗？

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;