[Moscow.pm] Как очистить массив

[Alexander Onokhov]

ccn на ccn-laptop ~
$ perl -le 'my @a=(undef,1,2,3);while(defined(my $r=shift @a)){};print @a'
123


2010/5/27 Albert Tugushev <metalikus на gmail.com>

> perl -le 'my @a=(0,1,2,3); while(defined(my $r = shift @a)){}; print @a'
>
>
> 27 мая 2010 г. 10:20 пользователь Alexander Onokhov <ccnweb на gmail.com>
> написал:
> > <code>
> > ccn на ccn-laptop ~
> > $ perl -le 'my @a=(1,2,3); while(my $r = shift @a){}; print @a'
> >
> > ccn на ccn-laptop ~
> > $ perl -le 'my @a=(0,1,2,3); while(my $r = shift @a){}; print @a'
> > 123
> > </code>
> >
> > 2010/5/27 Andrew Shitov <andy на shitov.ru>
> >>
> >> Увидел вот такой код внутри класса.
> >>
> >> sub clear{
> >>    my $template = shift @args;
> >>    @{$self->{tokens}} = ();
> >>    foreach (map {$_->{name}} @{$template->{si}}){
> >>        while (my $r = shift @{$self->{$_}->{res}}){}
> >>    }
> >> }
> >>
> >>
> >> Заслуживает внимания способ очистки массива:
> >>
> >> while (my $r = shift @a) {}
> >>
> >> Клево же :-)
> >>
> >> --
> >> Andrew Shitov
> >> ______________________________________________________________________
> >> andy на shitov.ru | http://shitov.ru
> >> --
> >> Moscow.pm mailing list
> >> moscow-pm на pm.org | http://moscow.pm.org
> >
> >
> >
> > --
> > Alexander
> >
> > --
> > Moscow.pm mailing list
> > moscow-pm на pm.org | http://moscow.pm.org
> >
> >
>
>
>
> --
> Best regards,
> Albert Tugushev.
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>



-- 
Alexander
----------- следущая часть -----------
Вложение в формате HTML было извлечено&hellip;
URL: <http://mail.pm.org/pipermail/moscow-pm/attachments/20100527/df25496d/attachment.html>