| Antwort: | Einfach folgenden Code einfügen:
$Jetztwert = time();
$Jetztzeit = localtime($Jetztwert);
&Deutschnamen;
@Zeit = split(/ +/,$Jetztzeit);
out "Heute ist ",$Zeit[0],", der ",$Zeit[2],". ",$Zeit[1]," ",$Zeit[4];
sub Deutschnamen
{
$Jetztzeit =~ s/Mon/Montag/;
$Jetztzeit =~ s/Tue/Dienstag/;
$Jetztzeit =~ s/Wed/Mittwoch/;
$Jetztzeit =~ s/Thu/Donnerstag/;
$Jetztzeit =~ s/Fri/Freitag/;
$Jetztzeit =~ s/Sat/Samstag/;
$Jetztzeit =~ s/Sun/Sonntag/;
$Jetztzeit =~ s/Jan/Januar/;
$Jetztzeit =~ s/Feb/Februar/;
$Jetztzeit =~ s/Mar/Maerz/;
$Jetztzeit =~ s/Apr/April/;
$Jetztzeit =~ s/May/Mai/;
$Jetztzeit =~ s/Jun/Juni/;
$Jetztzeit =~ s/Jul/Juli/;
$Jetztzeit =~ s/Aug/August/;
$Jetztzeit =~ s/Sep/September/;
$Jetztzeit =~ s/Oct/Oktober/;
$Jetztzeit =~ s/Nov/November/;
$Jetztzeit =~ s/Dec/Dezember/;
}
|
