#!/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 <[email protected]>
> в том смысле чтобы при использовании strict итп функция сортировки
> оперировала переменными $a и $b?
>
> sub my_sort(&@) {
> my ($cb, @ary) = @_;
> ...
> }
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
--
//wbr, Dmitry L.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
