end0tknr's kipple - 新web写経開発

http://d.hatena.ne.jp/end0tknr/ から移転しました

Time::HiRes::gettimeofday() と Date::Calc::Localtime() で1秒未満の時刻表示

データを1秒未満で、シリアライズする必要があったので

#!/usr/local/bin/perl
use strict;
use Time::HiRes qw/gettimeofday/;
use Date::Calc qw/Localtime/;

main();

sub main {
    my ($epoc_time,$micro_sec) = Time::HiRes::gettimeofday(),"\n";
    my @Localtime = Localtime($epoc_time);
    print sprintf("%04d-%02d-%02d %02d:%02d:%02d\.%1d",
		  @Localtime[0..5],$micro_sec/100000),"\n";
}

↑こう書くと、↓こう表示されます

$ ./foo.pl 
2013-03-04 23:15:48.3

Date::Calc - search.cpan.org
Time::HiRes - search.cpan.org