perl 처리 시간 구하기

처리 시간을 구하는 방법은 많다. 성능 측정을 위해 밀리세컨드까지 구하는 것도 있지만
아래와 같이 간단한 방법으로 소수 6자리까지의 초단위까지 측정할 수 있다.

use Time::HiRes qw/gettimeofday tv_interval/;

my $start = [gettimeofday];

# 처리 내용

my $end = [gettimeofday];
Logger->debug("처리에 걸린 시간" . Dumper sprintf("%.6f 초", tv_interval($start, $end)));