Komplizierte Sortierung (Perl/CGI)

[thread]13425[/thread]

Komplizierte Sortierung

Leser: 23

Articles: hide open all | hide show old branches

+4 replies

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.

+2 replies
pq

2009-04-22 20:59
User since
2003-08-04
12209 Artikel
Admin1
schneller hack (aber getestet):
Code (perl): (dl )

1 2 3 4 5 6 7 8

my @sorted = map { $_->[1] } sort { $a->[0] cmp $b->[0] } map { my $index = m{(.*)/index_de.htm$}i ? $1 : $_; [$index, $_] } @list;
nennt sich schwartzian transform (optimierung, kann man aber auch in der sortier-funktion selber machen, ich finds aber so auch lesbarer).
also alle die index_de.html am ende haben, sollen in der sortierung so behandelt werden, als wäre das index_de.html gar nicht da - also legt man eine arrayref an mit dem veränderten string und vergleicht dann diesen statt des originalstrings, und holt sich im zweiten map (das im code als erstes steht), den originalstring wieder zurück.
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: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- cbxk1xg
  
  2009-04-22 21:06
  
  User since
  2003-10-20
  496 Artikel
  BenutzerIn
  
  Du bist genial! Tausend Dank!!! Genau das habe ich gesucht. Ich werde mir das noch mal in aller Ruhe ansehen um es genau zu verstehen. DANKE!

topeg

2009-04-22 21:01

User since
2006-07-10
2611 Artikel
BenutzerIn

user image

2009-04-22T17:58:37 cbxk1xg
Hallo Freunde der Sonne,

Sonne?! was war das noch gleich...

so sollte es gehen, bin mir nur nicht sicher, ob die Regexp auch immer korrekt matchen.

Code (perl): (dl )

my @list=qw(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);

@list=map{ s!/\0\0\0__([^/]+?)$!/$1!i; $_ } sort map{ s!/(index.*?\.htm.*?)$!/\0\0\0__$1!i; $_ }@list; 

print join("\n",@list)."\n";

View all threads created 2009-04-22 19:58.