Se você tem um interpretador Perl moderno o bastante ( Time::HiRes
é empacotado desde a versão 5.7.2), você pode usar alguma variação disso:
#!/usr/bin/env perl
use strict;
use warnings;
use Time::HiRes qw(gettimeofday);
use POSIX qw(strftime);
my ($s,$us) = gettimeofday();
printf "%s.%06d\n", strftime("%H:%M:%S", localtime($s)), $us;
Exemplo de saída:
$ ./t.pl
19:52:35.408520
Se você não tem perl (ou não quer usá-lo), mas você tem um compilador C, você pode usar isto:
#include <time.h>
#include <stdio.h>
#include <sys/time.h>
int main(void)
{
struct timeval now;
struct tm *tmp;
char timestr[9];
int rc;
rc = gettimeofday(&now, 0);
if (rc != 0) {
perror("gettimeofday");
return 1;
}
tmp = localtime(&now.tv_sec);
if (tmp == 0) {
perror("localtime");
return 1;
}
rc = strftime(timestr, sizeof(timestr), "%H:%M:%S", tmp);
if (rc == 0) {
fprintf(stderr, "strftime call failed.\n");
return 1;
}
printf("%s.%06ld\n", timestr, now.tv_usec);
return 0;
}