Контраргументы закончились :) 27 мая 2010 г. 10:24 пользователь Alexander Onokhov <[email protected]> написал: > c...@ccn-laptop ~ > $ perl -le 'my @a=(undef,1,2,3);while(defined(my $r=shift @a)){};print @a' > 123 > > > 2010/5/27 Albert Tugushev <[email protected]> >> >> perl -le 'my @a=(0,1,2,3); while(defined(my $r = shift @a)){}; print @a' >> >> >> 27 мая 2010 г. 10:20 пользователь 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 >> > >> > >> >> >> >> -- >> Best regards, >> Albert Tugushev. >> -- >> Moscow.pm mailing list >> [email protected] | http://moscow.pm.org > > > > -- > Alexander > > -- > Moscow.pm mailing list > [email protected] | http://moscow.pm.org > >
-- Best regards, Albert Tugushev. -- Moscow.pm mailing list [email protected] | http://moscow.pm.org
