データを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