1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
use strict;
use Data::Dump qw(dump);
my @packeddirs = qw'verz1/datei4 test verz1/verz2/verz3/file3 verz1/file2';
my @unpackeddirs = map {
[split '/', $_]
} @packeddirs;
my @sorteddirs = sort {
my $idx = 0;
my $res = 0;
while(!$res) {
$res = sort_unpacked($idx++, $a, $b)
}
$res;
} @unpackeddirs;
sub sort_unpacked {
my ($idx, $left, $right) = @_;
my $ma = $left->[$idx];
my $mb = $right->[$idx];
defined $ma and defined $mb
? $ma cmp $mb
: defined $ma
? 1
: -1;
}
dump @sorteddirs;
hiermat hast du schonmal die Aufsplittung und sortierung...
das müsste dir eigentlich helfen, oder?