encontrar número de segundos restantes em um dia a partir da hora atual - perl, shell

Eu preciso coletar o comando vmstat por um dia. Mas algum tempo eu começo o comando no dia, eu quero terminar às 23:59. Qual é a melhor maneira de calcular os segundos restantes do dia usando o shell scipt ou o script perl?

obrigado SR

Respostas:

No bash:

$ echo $(( $(date --date="00:00 next day" +%s) - $(date +%s) ))

Você poderia usar Data hora em Perl para fazer isso. Crie um objeto para hoje com o tempo 00:00:00, adicione um dia, converta para segundos de época e subtraia o timestamp inicial do seu programa.

use strict;
use warnings;
use DateTime;
print DateTime->today( time_zone => "local" )->add(days => 1)->epoch - time;