Discussion :

[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é :
@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.

[Leishmaniose]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

@+

[bros_70]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :-)

[Leishmaniose]

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 :

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 :-)

[Jedai]

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é :
@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.

Avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

@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ï