2010/5/27 [email protected] <[email protected]>
> так короче: grep { shift @a } @a;
>
>
Так делать нельзя, void контекст grep и map - зло (см. perlstyle)
@a=() - а так нельзя? :)
> В Чтв, 27/05/2010 в 12:50 +0400, Andrew Shitov пишет:
> > Увидел вот такой код внутри класса.
> >
> > sub clear{
> > my $template = shift @args;
> > @{$self->{tokens}} = ();
> > foreach (map {$_->{name}} @{$template->{si}}){
> > while (my $r = shift @{$self->{$_}->{res}}){}
> > }
> > }
> >
> >
> > Заслуживает внимания способ очистки массива:
> >
> > while (my $r = shift @a) {}
> >
> > Клево же :-)
> >
>
> --
> С уважением Виктор
> Метод Лаб
> +7 (495) 228-09-92
> http://www.methodlab.ru/
>
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>
--
С уважением,
Анатолий Шарифулин.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
