本棚の新しい住人

プログラミングMicrosoft .NET Framework 第2版 978-4891005238

Perlでsubsec表示

Time::HiResを使うと時刻をnano sec. の桁まで取得できる。当然micro sec. mili secもOK. 精度があるかは不明。

use strict;
use Time::HiRes;

my $nowObsolete = Time::HiRes::time;
my ($now, $usec) = Time::HiRes::gettimeofday;
my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst) = localtime($now);
$year += 1900;
$mon += 1;
my $msec = $usec / 1000; #ミリ秒に変換
my $daystr = sprintf("%04d/%02d/%02d", $year, $mon, $mday);
my $timestr = sprintf("%02d:%02d:%02d", $hour, $min, $sec);
my $msecstr = sprintf("%03d", $msec);
print sprintf("%.6f", $nowObsolete), "\n";
print sprintf("%d.%06d", $now, $usec), "\n";
print $now, "\n";
print $msec, "\n";
print "[", $daystr, " ", $timestr, ".$msecstr] \n";