Thread Dateisortierung (39 answers)
Opened by IceRage at 2012-02-04 02:17

pq
 2012-02-04 19:43
#155870 #155870
User since
2003-08-04
12208 articles
Admin1
[Homepage]
user image
sieht für mich aus nach:
1. sortierung nach verzeichnis / datei
2. sortierung alphanumerisch, case-insensitive

dürfte dann so in etwa gehen (ungetestet):
Code (perl): (dl )
1
2
3
4
5
6
7
my @files = map {
    $_->[2]
} sort {
    $b->[0] <=> $a->[0] or $b->[1] cmp $a->[1]
} map {
    [-d "$dir/$_" || 0, lc $_, $_]
} readdir $dh;


oder, mit einer teilweisen GRT (Guttman Rosler Transform), auch ungetestet:
Code (perl): (dl )
1
2
3
4
5
6
7
my @files = map {
    $_->[1]
} sort {
    $b->[0] cmp $a->[0]
} map {
    [ ((not -d "$dir/$_") || 0) . lc $_, $_]
} readdir $dh;
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 Dateisortierung