Datum auswerten

[Beat Strasser]

Das folgender massen aussieht:   "*010499"
Also * = Zeilenanfang
     01 = 1.
     04 = April
     99 = 1999
$datum2 =  "Freitag, 1. April 1999"

use Time::Local;
$day = substr($datum, 0, 2);
$month = substr($datum, 2, 2) - 1;
$year = substr($datu, 4, 2);
$unix_time = timelocal(0,0,0,$day,$month,$year);
@months = ('Januar', 'Februar', 'März', 'April', 'Mai',
           'Juni', 'Juli', 'August', 'September',
           'Oktober', 'November', 'Dezember');
@days = ('Sonntag', 'Montag', 'Dienstag', 'Mittwoch',
         'Donnerstag', 'Freitag', 'Samstag');
($day, $month, $year, $wday) = (localtime($unix_time))[3,4,5,6];
$year += 1900;
$datum2 = "$days[$wday], $day, $months[$month] $year";

Habe es aber nicht getestet...

Gruss,
Beat