タグ

ブックマーク / hitotec.hatenadiary.org (1)

  • 現在時刻をマイクロ秒(μs)まで取得する #perl - hito::tech

    検証テストをする際、秒以下の単位(ミリ秒、マイクロ秒、)を取得したい、ということがありました。 perl標準モジュールでできないか調べた結果、以下のコードでマイクロ秒まで取得ができる。。。はず。 コード #!/usr/bin/perl use strict; use warnings; use Time::HiRes qw/ gettimeofday /; my ($epocsec, $microsec) = gettimeofday(); my ($sec,$min,$hour) = localtime($epocsec); printf("%02d:%02d:%02d.%d\n",$hour,$min,$sec,$microsec); 内容 Time::Hiresのgettimeofdayは、エポック秒(UNIX時間)とマイクロ秒2つの要素の配列を返してくれます。 取得したエポックス秒

    現在時刻をマイクロ秒(μs)まで取得する #perl - hito::tech
    kiyo_hiko
    kiyo_hiko 2015/02/02
    アレンジ my ($epoch, $micro) = ::gettimeofday; print ::strftime('%Y/%m/%d %H:%M:%S.', localtime $epoch) . "$micro\n"; ミリ秒まで ::strftime('%Y/%m/%d %H:%M:%S.', localtime $epoch) . do {$micro =~ m|^(\d{3})|; $1} . "\n";
  • 1