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

[Dmitry Karasik]

On Sun, Feb 03, 2013 at 01:18:02AM +0400, Ivan Petrov wrote:
> > Всмысле?
> 
> > use strict;
> > use warnings;
> > sub foo { $b <=> $a }
> > print sort foo 1..10;
> 
> в смысле меня не использование функции интересует а ее написание. так
> чтобы strict не ругался.
> 
> sub mysort(&@) {
>     my ($cb, @args) = @_;
> 
>     ... 
>         # тут я хочу вызвать $cb->() так чтобы внутри нее юзер 
>         # мог оперировать $a и $b без проблем на стадии компиляции
> }

Аа извините, непонятно было ... вы это имели в виду ?

sub mysort(&@) 
{
    my ($cb, на args) = @_;
    local $a = 1;
    local $b = 2;
    $cb->();
}

-- 
Sincerely,
	Dmitry Karasik