我可以将参数传递给 Perl 中排序的比较子例程吗？答案

【问题标题】：Can I pass arguments to the compare subroutine of sort in Perl?我可以将参数传递给 Perl 中排序的比较子例程吗？
【发布时间】：2010-10-22 09:32:16
【问题描述】：

我正在使用 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
}

我该怎么做？

【问题讨论】：

【解决方案1】：

使用sort BLOCK LIST 语法，请参阅perldoc -f sort。

如果你已经写了上面的special_compare sub，你可以这样做，例如：

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

【讨论】：

【解决方案2】：

您可以使用闭包代替排序子例程：

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

my @sorted = sort $sub @list;

如果要传递@_ 中要比较的元素，请将子程序的原型设置为($$)。注意：这比非原型子程序慢。

【讨论】：