Für den ersten Teil der Frage (die ja thematisch noch in den anderen Thread als Rückfrage auf msg #156608 gepasst hätte) könnte man sprintf zu Hilfe nehmen.
Dieser Ausdruck liefert das Datum als Scalar rückwärts auf 8 Stellen sortierbar formatiert:
sprintf("%04d%02d%02d",reverse(split /\./,'7.3.2012'))
Und für die Ausgabe kannst du es hiermit wieder richtig drehen:
substr($dat,-2).'.'.substr($dat,4,2).'.'.substr($dat,0,4)
Und ein Array kann man mit shift() oder splice() kürzen. Einfach mal in der Konsole perldoc -f shift absetzen, das ist die Hilfe zur jeweiligen Funktion.
Last edited: 2012-03-07 06:24:03 +0100 (CET)