The OpenNET Project / Index page

[ новости/++ | форум | wiki | теги ]

Как протестировать производительность (скорость выполнения) perl скрипта.
use Benchmark;
  $string = "The bitter end.\n";
  $code{"chomp"} = 'chomp $string';
  $code{"regex"} = '$string =~ s/\n$//';
timethese(10_000_000, \%code);
или timethese($count, {
            'test1' => sub { foreach $cur_val (@arr){....}},
            'test2' => sub { ....много кода... },
     });
 
27.08.2001
Ключи: regex, string, time, perl, benchmark / Лицензия: CC-BY
Раздел:    Корень / Программисту и web-разработчику / Perl / Отладка программ на Perl

Ваш комментарий
Имя:         
E-Mail:      
Заголовок:
Текст:



  Закладки на сайте
  Проследить за страницей
Created 1996-2017 by Maxim Chirkov  
ДобавитьРекламаВебмастеруГИД  
Hosting by Ihor