perl - 如何获得函数perl所需的时间？

Question

我想测量在 perl 中执行某些功能所需的时间。我使用了 Time::HiRes 但时间无法读取。如何轻松实现？

代码是:

use Time::HiRes qw (time);
my $start = time;
my_function_here ();
my $time = time - $start;
printf "Time needed for my_function_here is: $time sec\n";

sub my_function_here {
    my $null = 1;
}

Answer 1

我使用 Benchmark用于此类任务的核心 Perl 模块:

use strict;
use warnings;
use Benchmark qw/:hireswallclock/;

my $td = timeit(1, 'my_function_here');

print "the code took: ",timestr($td),"\n";
#<-- the code took: 2.86102e-006 wallclock secs ( 0.00 usr +  0.00 sys =  0.00 CPU)

sub my_function_here {
    my $null = 1;
    #...
}