検証テストをする際、秒以下の単位(ミリ秒、マイクロ秒、)を取得したい、ということがありました。 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つの要素の配列を返してくれます。 取得したエポックス秒