Re: displaying microseconds from epoch like format

in reply to displaying microseconds from epoch like format

my $epTime = 1276218934.155029;
my ($epoch, $frac) = $epTime =~ /(\d+)\.(\d+)/;
(my $str = localtime $epoch) =~ s/(.*:\d+)/$1.$frac/;

printf $str;
[download]

Prints:

Fri Jun 11 13:15:34.15503 2010
[download]

True laziness is hard work

In Section Seekers of Perl Wisdom