 |
|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Yury Kopyl 2:5020/400 17 Nov 2003 15:17:14 To : Ilia Vinokurov Subject : Re: Производительность ООП -------------------------------------------------------------------------------- Ilia Vinokurov -> "Re: Производительность ООП" : IV>>> Каков ваш опыт ? YK>> Взять железку помощнее. IV> А что делать, если железки помощнее нету (не предлагать перебираться IV> на Mac или AS400), а colocation кластерного решения слишком дорог ? взять 2 железки и настроить балансинг IV> Мораль следующая - быстрые алгоритмы еще никому не мешали :-) дешевле купить железку. IV> ------------------- Файл TestOOP.pm ----------------------------- IV> package TestOOP; IV> sub new{ IV> my $class = shift; IV> my $self = bless {}, $class; IV> $self->{'var'} = 0; IV> return $self; IV> }; sub new{ bless {},$_[0] } IV> sub testsub{ IV> my $self = $_[0]; IV> for( my $i=1; $i<100000; $i++ ){ IV> $self->{'var'} = $i; IV> $self->{'var'} = $self->{'var'}/$self->{'var'}; IV> }; IV> }; sub testsub{ my $self=shift; foreach my $i (1..100000){ $i/=$i; # 1 :) $self->{var}=$i; } } IV> 1; Каждый раз дергать переменную не надо. Тест бессмысленный. Yury Kopyl aka hrg | http://id.totem.ru | Только взял боец гитару, сразу видно - гармонист... --- ifmail v.2.15dev5.1 * Origin: IAC Samara-Internet, Ltd. (2:5020/400) Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/10277dd4dc4cb.html, оценка из 5, голосов 10
|
|
|