Hallo Andreas, hier die Erläuterung zum Script (schwitz):
#!/usr/bin/perl
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
# Wandelt die Zeit der Funktion "time" in eine Liste mit 9 Elementen um.
# Die Funktion "time" liefert die Systemzeit des Betriebssystems auf dem Perl gerade ausgeführt wird.
$year = $year+1900;
# In der Variable $year ist die Anzahl der Jahre seit 1900 gespeichert.
# Die korrekte Weise, ein komplettes 4-stelliges Jahr zu erhalten wäre laut Perl-Doku so:
# $year += 1900;
# so wie es oben steht gehts natürlich auch
if ($min < 10) {
$min = "0$min";
}
# wenn Anzahl der Minuten kleiner 10, dann male davor eine Null (führende Null)
if ($hour < 10) {
$hour = "0$hour";
}
# wenn Anzahl der Stunden kleiner 10, dann male davor eine Null (führende Null)
@tag = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
# die Liste (Array) der deutschen Wochentage
@monat = ("Januar","Februar","März","April","Mai","Juni","Juli","August","September","Oktober","November","Dezember");
# die Liste (Array) der deutschen Monate
print "Content-type: text/html\n\n";
# Hier erfährt der Webserver, daß das Script jetzt HTML-Code ausgeben möchte.
print "Heute ist $tag[$wday], der $mday. $monat[$mon] $year. Es ist jetzt $hour:$min Uhr.";
# zum Beispiel:
# Falls gerade Mittwoch ist, steht in der Variable $wday eine 3.
# Daraufhin wird der 4. Tag aus @tag ausgegeben.
# Wenn in $wday eine 0 steht wird der Sonntag ausgegeben.
# usw.
Grüße von Sabine