Quote Code (perl): (dl ) 1 2 3 4 5 6 7 1: my @list = map { 2: $_->[0] 3: } sort 4: datesort 5: map { 6: [ $_ , split /\//, $_ ] 7: } keys %days; ist das nicht lesbarer?
1 2 3 4 5 6 7
1: my @list = map { 2: $_->[0] 3: } sort 4: datesort 5: map { 6: [ $_ , split /\//, $_ ] 7: } keys %days;