> #!/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' );
такой код огребает варнинги если в разных модулях код
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
