Sekunden nach 1.1.1970 in "normale Zeitangabe" formatieren

[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