Молодца)
2010/5/27 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
>
>
--
С уважением,
Анатолий Шарифулин.
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
