5 Oct
2004
5 Oct
'04
16:52
Hi nochmals! Vergiss meinen letzten Vorschlag. Der war sehr suboptimal ;-) 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. Gruß, Michael