Znajdź liczbę sekund pozostałych w danym dniu od bieżącego czasu - perl, shell

Muszę zebrać komendę vmstat na jeden dzień. Ale po jakimś czasie zaczynam polecenie w ciągu dnia, chcę, żeby skończył o 23:59. jaki jest najlepszy sposób obliczenia pozostałych sekund w ciągu dnia za pomocą skryptu scipt lub perl powłoki?

Dzięki SR

Odpowiedzi:

W bash:

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

Możesz użyć DateTime w Perlu, aby to zrobić. Stwórz obiekt na dziś z czasem 00:00:00, dodaj jeden dzień, przekonwertuj go na epoki i odejmij znacznik czasu początkowego swojego programu.

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