<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
