Perlからミリ秒レベルのタイミング情報を取り出す

     Time::HiRes   ：                   。 

 ： 

     use Time::HiRes qw(gettimeofday tv_interval); 

     my $start_time = [gettimeofday]; 

     my $counter=0; 

     foreach (1..1000){ 

         $counter++; 

     } 

      

     my $interval=tv_interval($start_time,[gettimeofday]); 

     print “it take the time : $interval seconds
"; 

  

                 。