Sekunden nach 1.1.1970 in "normale Zeitangabe" formatieren

[Sebastian Horsch]

Hallo, ich habe ne frage zu Perl.

Ich würde gerne die letzte Anderungszeit von einer Datei herausbekommen.
Ich habe schon herausgefunden, das das mit der Funktion stat geht.
Der Wert der mir allerdings zurückgegeben wird, wird in Sekunden ab 1.1.1970 angegeben.
Hier nun die Frage:

Kann mir jemand sagen, wie Ich diesen Sekundenwert in ein "normales Zeitformat" (z.B.: 28.10.2002 05:02:00)  bringen kann?

Vielen Dank

MfG Sebastian

[Orlando]

Hi Sebastian,

Der Wert der mir allerdings zurückgegeben wird, wird in Sekunden ab 1.1.1970 angegeben.

Kann mir jemand sagen, wie Ich diesen Sekundenwert in ein "normales Zeitformat" (z.B.: 28.10.2002 05:02:00) bringen kann?

Was, wie und warum, wird hier sehr ausführlich beschrieben:

http://aktuell.de.selfhtml.org/tippstricks/programmiertechnik/zeitberechnung/

LG Orlando

[Sebastian]

Vielen Dank,

bringt mich schon mal nen bißchen weiter,
Habs eingebaut und ist auf alle Fälle besser wie davor mit statischer Angabe.
Aber wie läuft das zum Bsp. mit den Schaltjahren?

Gibt es nicht irgendwo nen Schnippsel fertigen Code wo das Problem gelöst wird. Müßte doch eigentlich täglich vorkommen.

MfG Seb

[oesi50]

Hallo, ich habe ne frage zu Perl.

$zeit = localtime($zeit_in_sekunden);

mfg oesi

[Sebastian]

Hallo, ich habe ne frage zu Perl.

$zeit = localtime($zeit_in_sekunden);

mfg oesi

Vielen Dank, funktioniert. Und wie einfach!!!!
So hab Ich mir das doch fast gedacht.

Warum versuchen es dann so viele mit einem selbstgeschriebenen Algorythmus wenns das schon gibt?? siehe: http://forum.de.selfhtml.org/archiv/2001/6/25049/#m130633

MfG Seb

[oesi50]

Kleine Ergänzung:

Die Zeit kann auch als Array(Liste) von Integerwerten dargestellt werden.
Dieses kann man benutzen, um eine deutsche Ausgabe zu generieren.

Beispiel
------------------------------------------------------------------------
#!usr/bin/perl

($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
$year = $year+1900;

if ($min < 10) {
$min = "0$min";
}
if ($hour < 10) {
$hour = "0$hour";
}

@tag = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
@monat = ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");

print "Content-type: text/html\n\n";
print "Heute ist $tag[$wday], der $mday. $monat[$mon] $year. Es ist jetzt $hour:$min Uhr.";
-----------------------------------------------------------------------------------------------

oesi50