Perl高精度计时器

Perl高精度计时器

 

use strict ;

useTime::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 ;

转自：  http://www.cnblogs.com/softwaretesting/archive/2011/07/27/2118654.html