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:
Заголовок:
Текст:




Спонсоры:
Слёрм
Inferno Solutions
Hosting by Ihor
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2019 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру