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

Thu, 27 May 2010 02:25:13 -0700 

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


2010/5/27 Albert Tugushev <[email protected]>

> perl -le 'my @a=(0,1,2,3); while(defined(my $r = shift @a)){}; print @a'
>
>
> 27 мая 2010 г. 10:20 пользователь Alexander Onokhov <[email protected]>
> написал:
> > <code>
> > c...@ccn-laptop ~
> > $ perl -le 'my @a=(1,2,3); while(my $r = shift @a){}; print @a'
> >
> > c...@ccn-laptop ~
> > $ perl -le 'my @a=(0,1,2,3); while(my $r = shift @a){}; print @a'
> > 123
> > </code>
> >
> > 2010/5/27 Andrew Shitov <[email protected]>
> >>
> >> Увидел вот такой код внутри класса.
> >>
> >> 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
> >> ______________________________________________________________________
> >> [email protected] | http://shitov.ru
> >> --
> >> Moscow.pm mailing list
> >> [email protected] | http://moscow.pm.org
> >
> >
> >
> > --
> > Alexander
> >
> > --
> > Moscow.pm mailing list
> > [email protected] | http://moscow.pm.org
> >
> >
>
>
>
> --
> Best regards,
> Albert Tugushev.
> --
> Moscow.pm mailing list
> [email protected] | http://moscow.pm.org
>



-- 
Alexander

--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org

Ответить