Re: ÉÚÍÅÒÅÎÉÅ ÐÅÒÆÏ

[Greg Belenky]

> а почему не :
> ? это проще вставить в готовый скрипт ;)

ну.. я использую Бенчмарк для того, чтобы выяснить, какая программная
конструкция работает быстрее. обычно это маленькие кусочки кода и использую
я cmpthese...

> И у меня будут, раз этот Benchmark входит в поставку ;)

мне не больно понравилось, в каком виде это все выдается...
Time::HiRes ловчее ;)

например:

use strict;
use Benchmark;
use Time::HiRes;

my $t1 = Benchmark->new();
my $h1 = time();

sleep(5);
my $i = 1;
$i++ for (1...100_000);

my $h2 = time();
my $t2 = Benchmark->new();

print timestr(timediff($t2, $t1), 'auto', '.05f'), "\n";
printf "%.5f\n", $h2 - $h1;

__END__