Согласен что зло, но если в лоб тогда как вариант undef @a;
В Чтв, 27/05/2010 в 13:15 +0400, Анатолий Шарифулин пишет: > > > 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 -- С уважением Виктор Метод Лаб +7 (495) 228-09-92 http://www.methodlab.ru/ -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
