¿Puedo pasar argumentos a la subrutina de comparación de tipo en Perl?

Question

estoy usando sort con una subrutina comparación personalizado que he escrito:

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

my @sorted = sort special_compare @list; 

Sé que es mejor uso $a$b y que se ajusta automáticamente, pero a veces me gustaría que mi special_compare para obtener más argumentos, es decir:

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

¿Cómo puedo hacer eso?

Answer 1

Utilice la sintaxis sort BLOCK LIST, consulte perldoc -f sort.

Si ha escrito el special_compare sub anterior, se puede hacer, por ejemplo:

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

Answer 2

Puede utilizar el cierre en lugar de la subrutina para ordenar:

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

my @sorted = sort $sub @list; 

Si desea pasar los elementos que se compararán en @_, establecen el prototipo de subrutina en ($$). Nota: esto es más lento que la subrutina sin prototipo.