Un classique des méthodes de tri

Bonsoir à tous,

Imaginez que vous ayez un tableau contenant des chaines de caractères (désignant des noms de fichiers) comme ceux la :
abcdefgh-04-300104.pdf|abcdefgh-02-300105.pdf|abcdefgh-08-200305.pdf etc...(la séparation | c'est juste pour matérialiser les éléments du tableau bien sur).

et que vous souhaitez utiliser comme clé de tri la sous chaine entre le "-" et l'extension, c'est à dire 300104 par exemple pour le premier élément, comment feriez vous ?

J'ai essayé ca mais ca ne donne pas le classement souhaité :cry: :
@NomFichiers = sort { substr($a, 13, 6) <=> substr($b, 13, 6) } @NomFichiers;

Je pense que la solution à ce mini blème pourra servir à tous perliens pas très expérimentés. :-o

1- boucle avec regex pour extraire chacune des sous chaînes (entre le second "-" et le "." de l'extension) et construire avec un tableau en utilisant push.

2- sort du tableau des sous chaînes @sub_char.

3- boucle imbriquée :

Code:

---

1 2 3 4 5 6 7

foreach $i (0..$#sub_char) { foreach $j (0..$#NomFichiers) { if ($NomFichiers [$j] =~ $sub_char[$i]) { #pour plus de précision il est possible d'utiliser la regex de la 1ère étape avec $sub_char[$i] push @sorted, $NomFichiers[$j]; } } }

---

code non tester... Je serais intéressé d'entendre des critiques...

@+

et après avoir implémenté ton code de cette façon :

Code:

---

1 2 3 4 5 6 7 8 9

foreach $i (0..$#TableauSousChaineMatchee) { foreach $j (0..$#NomFichiers) { if ($NomFichiers[$j] =~ $TableauSousChaineMatchee[$i]) { #pour plus de précision il est possible d'utiliser la regex de la 1ère étape avec $sub_char[$i] push (@sorted, $NomFichiers[$j]); } } } print "@sorted \n";

---

Je me retrouves avec l'ordre abcdefgh-08-090104.pdf abcdefgh-08-110107.pdf abcdefgh-08-190106.pdf abcdefgh-08-230105.pdf
Je ne vois pas à quel endroit du code il y a une fonction de tri ou d'inversion ? Yé po pigé.

Sinon j'ai trouvé une idée c'est : 1 Echanger les 6 chiffres de droites en lieu et place des 2 chiffres du millieu
2. Lancer un sort basique.
3. Replacer ces chaines dans leurs positions initiales :-)

Citation:

---

Envoyé par bros_70

Je me retrouves avec l'ordre abcdefgh-08-090104.pdf abcdefgh-08-110107.pdf abcdefgh-08-190106.pdf abcdefgh-08-230105.pdf
Je ne vois pas à quel endroit du code il y a une fonction de tri ou d'inversion ? Yé po pigé.

---

D'abord et pour éviter toute ambigüité : mon code ne concernait que la partie 3- de ma réponse autrement dit la boucle imbriquée, il fallait donc faire 1- et 2- (regex -> tableau @sub_char -> tri). Bon, pour ce qui est du tri, avant d'aller plus loin soyons déjà d'accord que :

abcdefgh-08-090104.pdf
abcdefgh-08-110107.pdf
abcdefgh-08-190106.pdf
abcdefgh-08-230105.pdf

sont bien trier dans l'ordre croissant des clés de tri (chiffre entre "-" et ".") vu que 090104 < 110107 < 190106 < 230105. Alors je suis désolé mais je n'ai rien compris de ton dernier post surtout la partie suivante :

Citation:

---

Envoyé par bros_70

Je ne vois pas à quel endroit du code il y a une fonction de tri ou d'inversion ? Yé po pigé.

Sinon j'ai trouvé une idée c'est : 1 Echanger les 6 chiffres de droites en lieu et place des 2 chiffres du millieu
2. Lancer un sort basique.
3. Replacer ces chaines dans leurs positions initiales :-)

---

Citation:

---

Envoyé par bros_70

Bonsoir à tous,

Imaginez que vous ayez un tableau contenant des chaines de caractères (désignant des noms de fichiers) comme ceux la :
abcdefgh-04-300104.pdf|abcdefgh-02-300105.pdf|abcdefgh-08-200305.pdf etc...(la séparation | c'est juste pour matérialiser les éléments du tableau bien sur).

et que vous souhaitez utiliser comme clé de tri la sous chaine entre le "-" et l'extension, c'est à dire 300104 par exemple pour le premier élément, comment feriez vous ?

J'ai essayé ca mais ca ne donne pas le classement souhaité :cry: :
@NomFichiers = sort { substr($a, 13, 6) <=> substr($b, 13, 6) } @NomFichiers;

Je pense que la solution à ce mini blème pourra servir à tous perliens pas très expérimentés. :-o

---

Avec :

Code:

---

@NomFichiers = sort { substr($a, 12, 6) <=> substr($b, 12, 6) } @NomFichiers;

---

Ca marchera mieux (note le 12 à la place de 13 : l'indexation d'une chaîne de caractère se fait à partir de 0).

Vu la taille du tableau, ce n'est pas nécessaire ici, mais voici un excellent article sur les tris en Perl.

--
Jedaï