Забавно, хотя splice @a короче будет :) 27 мая 2010 г. 9: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) {} > > Клево же :-) > > -- > Andrew Shitov > ______________________________________________________________________ > [email protected] | http://shitov.ru > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org >
-- Best regards, Albert Tugushev. -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
