Komplizierte Sortierung - #120826 (Perl/CGI)

cbxk1xg

2009-04-22 19:58

User since
2003-10-20
496 Artikel
BenutzerIn
[default_avatar]

Hallo Freunde der Sonne,

es freut mich, daß mein Lieblingsforum wieder halbwegs oline ist. Ich habe grade ein Sotierproblem. Vielleicht kann mir ja damit jemand helfen.

Ich habe folgende Liste

Code: (dl )

http://foo.bar/Aufbruch/Gegen-die-Diktatur/01-Dissidenten-in-Europa_de.htm
http://foo.bar/Aufbruch/Gegen-die-Diktatur/02-Test_de.htm
http://foo.bar/Aufbruch/Gegen-die-Diktatur/index_de.htm
http://foo.bar/Aufbruch/Index_de.htm
http://foo.bar/Aufbruch/Jugend/01-Dieses-Land-Ist-es-nicht_de.htm
http://foo.bar/Aufbruch/Subkultur/Artikel01_de.htm
http://foo.bar/Aufbruch/Subkultur/Index_de.htm
http://foo.bar/Aufbruch/Subkultur/TestGalerie_de.htm

Diese Liste muss ich in folgende Reihenfolge bringen:

Code: (dl )

http://foo.bar/Aufbruch/Index_de.htm
http://foo.bar/Aufbruch/Gegen-die-Diktatur/index_de.htm
http://foo.bar/Aufbruch/Gegen-die-Diktatur/01-Dissidenten-in-Europa_de.htm
http://foo.bar/Aufbruch/Gegen-die-Diktatur/02-Test_de.htm
http://foo.bar/Aufbruch/Jugend/01-Dieses-Land-Ist-es-nicht_de.htm
http://foo.bar/Aufbruch/Subkultur/Index_de.htm
http://foo.bar/Aufbruch/Subkultur/Artikel01_de.htm
http://foo.bar/Aufbruch/Subkultur/TestGalerie_de.htm

Es muss also nach Ordnern alphabetisch und nach Dateinamen aphabetisch sein. UND... Zusätzlich muss die entsprechende Index_de.htm immer an erster Stelle eines Ordners stehen.

Ich habe es mit folgendem Ansatz probiert.

Code (perl): (dl )

my @files = sort { if ($a =~/Index/gi) { return -1; } elsif ($b =~/Index/gi) { return 1; } else { return $a cmp $b; } } @unsortedfiles;

Aber leider sortiert das alle Index_de.htm nach nach oben. Hat jemand eine Idee??? - Mir gehen die Ideen aus...

Ich würde aus der sortierten Liste gerne ein HTML-Menü generieren.