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

[Albert Tugushev]

Контраргументы закончились :)

27 мая 2010 г. 10:24 пользователь Alexander Onokhov <ccnweb на gmail.com> написал:
> 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
>
> --
> Moscow.pm mailing list
> moscow-pm на pm.org | http://moscow.pm.org
>
>



-- 
Best regards,
Albert Tugushev.