ru.perl

 
 - RU.PERL ----------------------------------------------------------------------
 From : Konstantin Stupnik                   2:5020/400     26 Mar 2004  09:29:03
 To : Alexander P. Russkih
 Subject : Re: Убрать пробелы в  хеше
 -------------------------------------------------------------------------------- 
 

 Hello, Alexander!
 
  APR> наверное у нас просто разные конфигурации компьютеров.
 
 Hаверное всё же надо тестировать не абстрактных попугаев,
 а хоть какой-то намёк на полезную работу.
 
 Hапример так:
 use Benchmark;
 my @in;
 for(1..10)
 {
   push @in,'use Benchmark;';
   push @in,' use Benchmark; ';
   push @in,'            use Benchmark;';
   push @in,'use Benchmark;            ';
   push @in,'            use Benchmark;            ';
 }
 my $x;
 timethese(10000,
 {
   fake => sub {
     my @out;
     for(@in)
     {
       push @out,$_;
     }
   },
   one => sub
   {
     my @out;
     for(@in)
     {
       $x=$_;
       $x=~s/^\s+|\s+$//g;
       push @out,$x;
     }
   },
   ones => sub
   {
     my @out;
     for(@in)
     {
       $x=$_;
       $x=~s/^\s*(.*)\s*$/$1/;
       push @out,$x;
     }
   },
   two => sub
   {
     my @out;
     for(@in)
     {
       $x=$_;
       $x=~s/^\s+//; $x=~s/\s+$//;
       push @out,$x;
     }
   }
 }
 );
 
 Рузультат:
 Benchmark: timing 10000 iterations of fake, one, ones, two...
       fake:  1 wallclock secs ( 0.79 usr +  0.00 sys =  0.79 CPU) @
 12642.23/s (n=10000)
        one:  4 wallclock secs ( 3.68 usr +  0.00 sys =  3.68 CPU) @
 2721.09/s (n=10000)
       ones:  5 wallclock secs ( 4.99 usr +  0.00 sys =  4.99 CPU) @
 2005.21/s (n=10000)
        two:  2 wallclock secs ( 2.07 usr +  0.00 sys =  2.07 CPU) @
 4823.93/s (n=10000)
 
 fake это для "прогрева кэша и т.д." :)
 -- 
 Best regards,
       Konstantin.
 Отправлено через сервер Форумы@mail.ru - http://talk.mail.ru
 --- ifmail v.2.15dev5.3
  * Origin: Talk.Mail.Ru (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор