use strict; my %zeit=&Aktuelle_Zeit; my $wzsz=''; if ($zeit{sommerzeit} == 0){$wzsz="Winterzeit";} else { $wzsz="Sommerzeit";} print "$zeit{wochentagtext}, $zeit{tag}.$zeit{monat}.$zeit{jahr}, $zeit{stunde}:$zeit{minute}:$zeit{sekunde} Uhr $wzsz"; ############ # Zeit- und Datumsfunktion ################################# sub Aktuelle_Zeit{ my @wochentage = ("Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag","Sonntag"); my @monatsnamen = ("","Januar","Februar","März","April", "Mai","Juni","Juli","August","September","Oktober", "November","Dezember"); my ($sec,$min,$hour,$heutetag,$heutemonat,$heutejahr,$wday,$yday,$isdst) = localtime(time); $heutemonat++; $heutejahr+=1900; $wday--; if ($wday eq '-1'){$wday=6;} $hour="0$hour" if (length($hour) == 1); $min="0$min" if (length($min) == 1); $sec="0$sec" if (length($sec) == 1); my %werte=(); $werte{stunde}=$hour; $werte{minute}=$min; $werte{sekunde}=$sec; $werte{tag}=$heutetag; $werte{monat}=$heutemonat; $werte{jahr}=$heutejahr; $werte{wochentag}=$wday; $werte{jahrestag}=$yday; $werte{sommerzeit}=$isdst; my $tagalstext=$wochentage[$wday]; $werte{wochentagtext}=$tagalstext; my $monatalstext=$monatsnamen[$heutemonat]; $werte{monattext}=$monatalstext; return %werte; } |