Thread Daten aus Server-Logfile erheben (Common Log Format) mit Suchmuster (9 answers)
Opened by mojo at 2008-10-30 00:01

pq
 2008-11-08 14:19
#116101 #116101
User since
2003-08-04
12208 Artikel
Admin1
[Homepage]
user image
topeg+2008-11-07 21:32:47--
Code (perl): (dl )
my @list=map{$_=$_->[0]}sort{datesort()}map{$_=[$_,(split(/\//,$_))]}keys(%days);

ach du meine güte. ein vorteil von perl ist, dass man vieles kürzer hinkriegt als in anderen
sprachen, aber man muss dazu nicht auch noch jedes leerzeichen und newline weglassen. wer soll
das denn lesen? wie findet man in dem code einen eventuellen bug? schau mal:
Code (perl): (dl )
1
2
3
4
5
6
7
my @list = map {
    $_->[0]
} sort 
    datesort
map {
    [ $_ , split /\//, $_ ]
} keys %days;

ist das nicht lesbarer?
ausserdem hatte dein code wirklich einen fehler, der monat nummer 10 hiess im beispiel "Okt",
aber in deinem hash "Oct".

edit: ausserdem ist die zuweisung an $_ in map völlig überflüssig, du willst ja hier nicht das
originalarray verändern, denn es gibt kar kein originalarray. map liefert für jedes ihm übergebene
element das zurück, was der code-block zurückliefert.
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen: Wiki:Wie frage ich & perlintro Wiki:brian's Leitfaden für jedes Perl-Problem

View full thread Daten aus Server-Logfile erheben (Common Log Format) mit Suchmuster