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

[Dmitry L.]

#!/usr/bin/perl

use strict;
use warnings;

sub my_sort(&@) {
    my $cb = shift;
    $a = shift;
    $b = shift;


    # делаем дело здесь
    #
    #   my $cmp = $cb->();
    #   и т.д.
    ...;
}

my @sorted = my_sort { $b cmp $a } ( 'c', 'a', 'b' );


2013/2/2 Ivan Petrov <i.petro.77.00 на gmail.com>

> в том смысле чтобы при использовании strict итп функция сортировки
> оперировала переменными $a и $b?
>
> sub my_sort(&@) {
>     my ($cb, @ary) = @_;
>     ...
> }
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>



-- 
//wbr, Dmitry L.
----------- следущая часть -----------
Вложение в формате HTML было извлечено…
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20130202/af15c7d6/attachment.html>