Datum mit Wochentag ausgeben

[dobra]

Hallo,

ich möchte gerne das aktuelle Datum mit Wochentag ausgeben
also in der Form:  Sonntag, 07.06.2009

ich kriegs aber einfach nicht hin  :(

mit

Code [Auswählen] Expand

<!--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.2009
wie muss ich das schreiben, damit der Wochentag nicht als 0, 1, 2 usw sondern als Tag ausgegeben wird?

Nachtrag:  hab's doch noch rausgefunden  :D
so geht's:

Code [Auswählen] Expand

<!--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");
}
-->

[admin]

Hallo Dobra,

%u ist falsch - das steht für Formatierung als unsinged integer.
Das erste Besipiel funktioniert einwandfrei , wenn man nur %s (für Strings) satt %u nimmt.

Gruss hop

[dobra]

Hallo hop,

das "%u" war also schuld...
Danke!