5 Oct
2004
5 Oct
'04
19:47
Hallo, On 05-Oct-2004 Michael Wenger wrote:
Vergiss meinen letzten Vorschlag. Der war sehr suboptimal ;-)
Hatte ich noch gar nicht probiert, da ich eben erst wieder nach Hause gekommen bin.
Dieses hier sollte funktionieren: (my $formatted_date = strftime("%d:%m:%Y", localtime)) =~ s/[0]?(\d+):[0]?(\d+):(.*)/$1.".".$2.".".$3/e; print $formatted_date;
Bei mir hat dieser Schnipsel funktioniert. Ich habe %d statt %e verwendet, da %e anscheinend mit ActivePerl unter Windows nicht funktioniert.
Ich baue es mal ein und probiere es. Einen schoenen Abend, Heinz. -- http://www.pahlke-online.de/reisenews/ http://www.Pahlke-KunstWebDesign.de/