Tôi có thể chuyển đối số cho chương trình con so sánh sắp xếp trong Perl không?

Question

Tôi đang sử dụng sort với một chương trình con so sánh tùy Tôi đã viết:

sub special_compare { 
# calc something using $a and $b 
# return value 
} 

my @sorted = sort special_compare @list; 

Tôi biết đó là tốt nhất sử dụng $a và $b được tự động thiết lập, nhưng đôi khi tôi muốn special_compare tôi để có thêm lý lẽ, tức là:

sub special_compare { 
my ($a, $b, @more) = @_; # or maybe 'my @more = @_;' ? 
# calc something using $a, $b and @more 
# return value 
} 

Làm cách nào để làm điều đó?

Answer 1

Sử dụng cú pháp sort BLOCK LIST, xem perldoc -f sort.

Nếu bạn đã viết các special_compare phụ ở trên, bạn có thể làm, ví dụ:

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

Answer 2

Bạn có thể sử dụng đóng cửa ở vị trí của loại chương trình con:

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

my @sorted = sort $sub @list; 

Nếu bạn muốn vượt qua các yếu tố được so sánh trong @_, đặt nguyên mẫu của chương trình con thành ($$). Lưu ý: điều này chậm hơn so với chương trình con không được định kiểu.