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
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
