Datum auswerten

[Anonymous]

Hallo Perlfreaks...

Ich hab wieder einmal ein Problem....
Bin an einer grafischen auswertung eïnes LOG-Files.

Jeder eintrag enthält ein Datum!

Das folgender massen aussieht:   "*010499"

Also * = Zeilenanfang
     01 = 1.
     04 = April
     99 = 1999

Wenn ich nun nen String $datum = "*010499" habe..

Wie komm ich am einfachsten zu einem folgenden String

$datum2 =  "Freitag, 1. April 1999"

Für freitag müsste der wochentag vom 1.4.99 stehen, versteht sich!

Vielen Dank für jede Lösung sagt

Anonymous

[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

[Anonymous]

Hallo....

Nicht gestet, aber gut getippt/kopiert !

Vielen Dank

Anonymous