5 Oct
2004
5 Oct
'04
14:09
Hallo Heinz! Heinz W. Pahlke schrieb am 05.10.2004 15:29 :
print strftime "%e. %B %Y", localtime($(WML_SRC_TIME));
Diese Zeile würde ich intuitiv durch diese Zeilen ersetzen: my ($localday, $localmonth, $localyear) = split(/::/, strftime("%e::%B::%Y", localtime($(WML_SRC_TIME)))); # fuehrende Null vom Monat entfernen if(substr($localmonth, 0, 1) eq "0") { $localmonth = substr($localmonth, 1); } print $localday, ". ", $localmonth, " ", $localyear, localtime($(WML_SRC_TIME)); Ich habe das jetzt mal schnell niedergeschrieben, ohne es zu testen. Das Testen überlasse ich dir ;-) Gruß, Michael