[gelöst] Perl - Sekunden in HH:MM:SS umwandeln

[drhirn]

Hallo,

ich habe ein Anzahl an Sekunden. Wie kann ich die mittels Perl am einfachsten/performantesten nach HH:MM:SS umwandeln?

Danke!
Stefan

[TomLee]

FmtTime($seconds) ?

Gruß

Thomas

[drhirn]

Danke.
FmtTime(300) liefert aber 01:05:00? Warum?

[betateilchen]

Weil FmtTime() die falsche Funktion dafür ist.

In welchem Bereich bewegt sich die Sekundenzahl - mehr als einen Tag? (86400 Sekunden)

[drhirn]

Sollte möglichst flexibel sein, auch wenn's wahrscheinlich eher selten länger als ein Tag wird.

[betateilchen]

Code Auswählen Erweitern

{POSIX::strftime('%T', gmtime(300))}

Das funktioniert auf jeden Fall bis 86400.
Wenn der Wert größer wird, stimmt das Ergebnis hh:mm:ss auch noch, aber Du musst die Tage selbst ausrechnen.

[reibuehl]

Also ich würde es mit sprintf versuchen:

$timeInSec = 11534;
$timeAsHHMMSS = sprintf("%02d:%02d:%02d", int ($timeInSec / 3600), int (($timeInSec % 3600)/60), $timeInSec % 3600 % 60);

Gruß,
Reiner

[betateilchen]

Also ich würde es mit sprintf versuchen:

Kann man machen, aber perl hat definitiv elegantere Wege, das zu lösen.

Es funktioniert innerhalb FHEM auch ohne POSIX davor.

Code Auswählen Erweitern

{strftime('%T', gmtime(300))}

[drhirn]

Es funktioniert innerhalb FHEM auch ohne POSIX davor.

Code Auswählen Erweitern

{strftime('%T', gmtime(300))}

Perfekt! Vielen Dank!