Datum in Perl

[lolo]

Hallihallo

Weiss einer von euch, wie man in Perl an das aktuelle Datum/Zeit kommt??? Es muss auf jeden Fall ohne cgi-lib.pl
und aehnliche Bibliotheken gehen!
Ich braeuchte auch eine Loesung, die in Linux UND Windows funktioniert. (Falls das nicht geht, dann bitte eine fuer Linux und eine fuer Windows)

Danke schoen im voraus

 

[Oleg.de]

so...?

($sec,$min,$hour,$mday,$mon,$year,$wday) = (localtime(time))[0,1,2,3,4,5,6];
$time = sprintf("%02d:%02d:%02d",$hour,$min,$sec);
$year += 1900;
@days = ('So','Mo','Di','Mi','Do','Fr','Sa');
@months = ('01','02','03','04','05','06','07','08','09','10','11','12');
if ($mday <= '9' ) { $mday="0".$mday; }
$date = "Zeit: $mday.$months[$mon].$year um $time";
Du muss jetz nur das:
print DATA <font size='2'>$date</font>\n";
in dein CGI funz uberall

 

[lolo]

THX

THX - it's working!