実行時間計測（Perlメモ）

実行時間を計測する必要性が出てきたのでメモ。
Time::HiResモジュールを使います。

"I Love Perl Because I Love Perl"

プログラム

!/usr/bin/perl

use strict;
use warnings;
use Time::HiRes qw(usleep ualarm gettimeofday tv_interval);

&main();
exit(0);

sub main {
    my $t0 = [gettimeofday];
    usleep 5_000_000;
    my $t1 = [gettimeofday];

    my $execTime = tv_interval($t0, $t1);
    print "実行時間:", $execTime,"\n";
}

出力

実行時間:5.005696

参考文献

モジュール
Time::HiRes(CPAN)
Time::HiRes(perldoc.jp)
これを使った他のやり方
perlでミリ秒単位の処理時間を計測する

関連

Perl関連のブログで出ていたのでメモ。
Benchmark(CPAN)
Benchmark(perldoc.jp)

今日やったこと

• 研究関連

その他

Basic認証についていつ書くんだよおれ。