Hi, * On Monday, February 26, 2001 at 17:41, Martin Wielander wrote:
Bin gerade dabei den access.log von squid zu analysieren. Ich gehe mal davon aus, dass das erste argument das datum ist. Es ist in einem sehr kommischen format naemlich nur eine Zahl ich glaube (laut man date) das ist secconds since 00:00:00, Jan 1, 1970
Nun meine frage wie kann ich diese Zahl in ein anstaendiges datum umwandeln. Gehen wir davon aus ich habe den wert schon in einer variable stehen. Wie gehe ich dan weiter vor?
----squid_reform.pl---- #! /usr/bin/perl while (<>) { /^(\d*)\.\d*\s*(.*)/; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($1); $year += 1900; print "$mday.$mon.$year $hour:$min:$sec $2\n" } ----------------------- cat access.log | perl squid_reform.pl > access.log.lesbar Adalbert