27 мая 2010 г. 10:50 пользователь 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) {}
>
> Клево же :-)
>
До первого нуля, пустой строки undef, да?
--
Andrei Protasovitski
< andrei[dot]protasovitski[at]gmail[dot]com >
Diemen, Netherlands
--
Moscow.pm mailing list
[email protected] | http://moscow.pm.org
