论坛 › Perl › Perl高精度计时器

白森 发表于 2015-12-27 11:00:05

Perl高精度计时器

　　



use strict ;
use Time::HiRes qw(gettimeofday) ;
sub Test
{
    # sec: seconds
    # usec: microsecond
    my ($start_sec, $start_usec) = gettimeofday() ;
    #======================#
    # Place your code here!#
    #======================#
   
    my ($end_sec, $end_usec) = gettimeofday() ;
    # Compute time elipsed
    my $timeDelta = ($end_usec - $start_usec) / 1000 + ($end_sec - $start_sec) * 1000;
    print $timeDelta ;
}
&Test() ;
1 ;
　　

查看完整版本: Perl高精度计时器