Início / unix / Perguntas / 730001
Accepted
Christopher Karsten
Asked: 2022-12-30 12:07:46 +0800 CST

Como converter segundos para hh:mm:ss.ms ao obter diferença entre 2 vezes

  • 772

Eu realizei um cálculo que converte o timestamp atual dando milissegundos também usando o comando perl como abaixo:

perl -MTime::HiRes=time -MPOSIX=strftime -e '
$now = int(time() * 1000);
printf "%s.%03d\n", strftime("%H:%M:%S", localtime(int($now/1000))), ($now % 1000);'

Do exposto, desejo converter a saída em segundos, que posso obter usando abaixo, por exemplo:

echo "21:48:40.596" | awk -F: '{ if (NF == 1) {print $NF} else if (NF == 2) {print $1 * 60 + $2} else if (NF==3) {OFMT = "%2.3f"; print $1 * 3600 + $2 * 60 + $3 } }'

Com os comandos acima se eu comparar leituras em segundos separados, posso usar o comando abaixo para obter a diferença entre os 2 valores em segundos mantendo os miliconds:

EXEMPLO:

DIFF_SEC=$(echo "78522.896 - 78520.596" | bc -l | awk '{printf("%.3f\n", $1)}')

SAÍDA:

echo $DIFF_SEC
2.300

Gostaria de saber do exposto como posso calcular a diferença entre o comando acima em hh:mm:ss.milseconds

Eu consegui descobrir o seguinte, no entanto, os milissegundos não estão aparecendo:

DIFF=`printf '%02dh:%02dm:%02ds.%03d\n' $((DIFF_SEC/3600)) $((DIFF_SEC%3600/60)) $((DIFF_SEC%60))`

SAÍDA:

echo "$DIFF"
00h:00m:02s.000

O que eu espero está abaixo:

00h:00m:02s.300
awk

3 respostas

  1. Best Answer
    use Time::HiRes ('gettimeofday','tv_interval')

my @t1 = Time::HiRes::gettimeofday();
# do a bunch of stuff
my $t2 = Time::HiRes::tv_interval(\@t1,[Time::HiRes::gettimeofday()]);
say $t2;

    0,040614

    Esse é um exemplo, comece com 'agora', depois faça a diferença entre o primeiro 'agora' e o segundo 'agora'. Acho que é isso que você está perguntando, a menos que eu esteja lendo errado.

    Você está passando tv_interval uma referência de array do primeiro array de tempo e uma referência de array do segundo array de tempo agora.

    Você basicamente não usou o Time::HiRes totalmente, ele já faz tudo isso nativamente, então não havia necessidade de usar mais nada. Isso é muito útil para logar etc.

    Se você tem dificuldade em usar perl no AIX, pode usar o seguinte, o que não é o ideal, mas funciona:

    t1=`perl -MTime::HiRes=time  -e 'print time'`
sleep 1
t2=`perl -MTime::HiRes=time  -e 'print time'`
DIFF_SEC=`echo $t2-$t1|bc -l | awk '{printf("%.3f\n", $1)}'`
echo "$DIFF_SEC\n"
MS=`echo "$DIFF_SEC"| awk -F'.' '{print $2}'`
DIFF=`printf '%02d:%02d:%02d\n' $((DIFF_SEC/3600)) $((DIFF_SEC%3600/60)) $((DIFF_SEC%60))`
DIFF2=`printf '%02d hrs %02d mins %02d\n' $((DIFF_SEC/3600)) $((DIFF_SEC%3600/60)) $((DIFF_SEC%60))`
echo "$DIFF" | awk '{print $1"'".$MS"'"}'
echo "$DIFF2" | awk '{print $1,$2,$3,$4,$5 "'".$MS"' Secs"}'

    SAÍDA:

    1.017

00:00:01.017
00 hrs 00 mins 01.017 Secs
    • 2

  2. Apenas um lembrete rápido de que podemos usar o comando datepara reformatar datas e horas

    $ DIFF_sec=91.034    ## calculate diff in your favorite way
$ date -d "0+$DIFF_sec seconds"  '+%H:%M:%S.%3N'
00:01:31.034

    datetambém pode calcular diferentes

    $ T1=95.1
$ T2=195.2
$ date -d "0 + $T2 seconds - $T1 seconds"  '+%H:%M:%S.%3N'
00:01:40.100

    Finalmente, T1 e T2 podem ser calculados por data:

    $ start=`date '+%s.%3N'`
$ end=`date '+%s.%3N'`
$ date -d " 0 + $end seconds - $start seconds"  '+%H:%M:%S.%3N'
00:00:05.706
    • 1

  3. Em vez de Time::HiRes, use Time::Format:

    perl -MTime::Format -e 'print $time{"hh:mm:ss.mmm"}'

    Isso Time::HiResfaria sentido se todo o seu processo estivesse dentro do arquivo perl. Há um conjunto muito limitado de tarefas em que você precisa medir o tempo em nanossegundos.

    Mas como você está usando a execução de linha de comando, presumo que queira medir alguma execução de algumas ferramentas - você perderia nanossegundos apenas no processo de execução e, se milissegundos forem suficientes, você não precisará de nanossegundos - o Time::Format é suficiente.

    E se você precisar medir uma diferença de tempo, pode fazer algo como:

    #/bin/bash 
t1=`perl -MTime::HiRes=time  -e 'print time'`
sleep 1
t2=`perl -MTime::HiRes=time  -e 'print time'`
diff=`echo $t2-$t1|bc`
echo $t1, $t2, $diff
perl -MTime::Format -e "print time_format 'mm:ss.mmm', $diff"
    • 0

relate perguntas