The code which you end up using might look something like the following ...
use Time::HiRes qw/ time /; my $u_sec = time; my @date = localtime($u_sec); my $format = sprintf( "%4d%02d%02d%02d%02d%02d(%06d)", $date[5] + 1900, $date[4] + 1, $date[3], $date[2], $date[1], $date[0], substr($u_sec, index($u_sec, '.') + 1) ); print $format, "\n";
In reply to Re: MilliSeconds
by rob_au
in thread MiliSeconds
by Dany
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |