[perl]수행시간 측정

수행시간 측정에는 두가지 방법이있다( 내가아는것만)

첫번째는 Benchmark 모듈을 이용하는 법이다.

sudo cpan install Benchmark

로 설치하면된다.

설명은 cpan 에서 찾아보길 바란다.

Benchmark 모듈은 결과가 정수로 나오는데 , Windows 에서는 잘나오나
linux 에서만 정수로 나오는거 같다.

따라서 Time::HiRes 모듈을 사용한다.

sudo cpan install Time::HiRes

로 설치한다.

#!/bin/usr/perl
use strict;
use warnings;
use Time::HiRes qw(gettimeofday);   #include

(my $bsec, my $bmsec) = gettimeofday(); #sec , micro sec
#time check code
for(my $i=0;$i<100000000;$i++){
 
}
###################
(my $esec, my $emsec) = gettimeofday(); #sec , micro sec
my $sec = ($esec - $bsec)*1000;
$sec += (($emsec - $bmsec)/1000);
$sec/=1000;
print $sec;

알아서 잘 긁어서 쓰면된다.