我可以將參數傳遞給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 sub，你可以這樣做，例如：

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

Answer 2

您可以使用閉包代替sort子例程：

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

my @sorted = sort $sub @list;

如果要在@_傳遞要比較的元素，請將子例程的原型設置為($$) 。 注意：這比非原型子程序慢。