[Moscow.pm] А как написать свой sort?

[Dmitry Karasik]

On Sat, Feb 02, 2013 at 10:13:27AM +0400, Ivan Petrov wrote:
> в том смысле чтобы при использовании strict итп функция сортировки
> оперировала переменными $a и $b?
> 
> sub my_sort(&@) {
>     my ($cb, @ary) = @_;
>     ...
> }

Всмысле? 

use strict;
use warnings;
sub foo { $b <=> $a }
print sort foo 1..10;

-- 
Sincerely,
	Dmitry Karasik