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

[Albert Tugushev]

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.