Hallo,
ich möchte gerne das aktuelle Datum
mit Wochentag ausgeben
also in der Form:
Sonntag, 07.06.2009ich kriegs aber einfach nicht hin
mit
<!--spmacro:module(check)
sub datum {
($sec,$min,$hour,$mday,$mon,$year,$day) = localtime(time);
$mon += 1; $year += 1900; # Y2K
@days = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my $datum = sprintf("%u, %02d.%02d.%04d",$days[$day],$mday,$mon,$year);
main::mprint ($datum);
}
-->
(und noch etlichen Versuchen statt %u) bekomme ich nur
0, 07.06.2009wie muss ich das schreiben, damit der Wochentag nicht als 0, 1, 2 usw sondern als Tag ausgegeben wird?
Nachtrag: hab's doch noch rausgefunden
so geht's:
<!--spmacro:module(check)
sub datum {
($sec,$min,$hour,$mday,$mon,$year,$day) = localtime(time);
$mon += 1; $year += 1900; # Y2K
@days = ("Sonntag","Montag","Dienstag","Mittwoch","Donnerstag","Freitag","Samstag");
my $datum = sprintf("%02d.%02d.%04d",$mday,$mon,$year);
my $tag = sprintf("%u",$day);
my $xtag = $days[$day];
main::mprint ("$xtag, $datum");
}
-->
Autor
