Hey toll, danke für Deine Antwort. Mit unzähligem pröbeln bin ich auf eine ähnliche Lösung gekommen wie Du. Ich habe es so gemacht:
@sortiert = map { $_->[0] }
sort { $a->[1] cmp $b->[1] || $a->[2] cmp $n->[2] || $a->[3] <=> $b->[3] }
map { [$_,(split (/\| /,$_))[0,1,2]] } @lines ;
Das funktioniert auch mehr oder weniger. Ich habe bloss das Problem dass wenn ich 1 und 2 stellige Zahlen haben das Sortieren nicht richtig klappt.
Darf ich Dich noch etwas fragen. Für was benötigst Du das Modul (use Data::Dumper;)?
Viele Grüsse
Sven