Discussion :

[LeRoiDesLutins]

Bonjour,
Je recherche une méthode rapide pour trier par ordre numérique un tableau 2D selon une de ses colonnes.
J'ai regardé su côté de la fonction sort mais il semble que je ne puisse traiter que des tableaux 1D avec , non ?

Merci d'avance de votre aide

[2Eurocents]

Bonjour,
Je recherche une méthode rapide pour trier par ordre numérique un tableau 2D selon une de ses colonnes.
J'ai regardé su côté de la fonction sort mais il semble que je ne puisse traiter que des tableaux 1D avec , non ?

Non ...

On en a déjà parlé dans ce fil, entre autres.

A toi d'adapter à ta structure de tableau.

Bon courage ...

[LeRoiDesLutins]

Oui, j'avais vu ce topic mais j'ai rien compris
Pourrais tu prendre un peu de temps pour m'expliquer ça ?
Merci de ton aide en tout cas

[2Eurocents]

Pas de problème ... essayons.

C'est peut être jouer sur les mots, mais en Perl, il vaut mieux essayer d'éviter de penser en "tableaux", car on risque d'être toujours déçu.

Comme tu le soulignes, les "tableaux" sont en 1D, pas 2D, 3D ou plus.

En fait, la notion qui colle le mieux, dans ce cas, c'est la notion de liste. Que cette liste contienne des éléments composites, d'autres listes ou au contraire des éléments atomiques (insécables) n'a aucune espèce d'importance pour Perl.

La fonction sort trie les listes.

Cependant, pour nous permettre toutes les fantaisies en fonction de ce que contiennent les listes, elle accepte un bloc de code qu'elle peut utiliser pour réaliser ce tri.

Il faut savoir que dans ce bloc de code, le premier des éléments de la liste à trié considéré pour le tri est conventionnelement nommé $a, et le second $b (ce sont des variables internes au tri, qu'il est donc superflu de déclarer).

Le tri sera réalisé en fonction du résultat de la comparaison menée sur $a et $b dans le bloc de code.

Les tris élémentaires sont généralement du style de :

Code :

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

sort { $a cmp $b } @liste

pour les listes de chaines,

Code :

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

sort { $a <=> $b } @liste

pour les listes de nombres.

Cependant, rien n'empêche d'utiliser $a et $b comme des éléments d'indirection pour trier des listes d'éléments plus complexes.

Par exemple, pour un hachage :

Code :

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

sort { $a cmp $b } keys %hachage

trie les clefs du hachage par ordre croissant.

Code :

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

sort { $hachage{$a} cmp $hachage{$b} } keys %hachage

trie les clefs du hachage par ordre de valeur correspondante croissante.

De même, à supposer que la liste soit une liste composée d'éléments aggrégés (des champs de données, concaténés, séparés par des virgules, par exemple), il est possible de décomposer ces éléments dans le bloc de tri, et d'utiliser le résultat de la comparaison entre deux parties pour trier l'ensemble de la liste :

Code :

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

sort { my @champs_a = split (/,/, $a); my @champs_b = split (/,/, $b); $champs_a[5] <=> $champs_b[5] } @liste

Ceci triera la liste en comparant (numériquement) le sixième champ de l'ensemble de champs séparés par des virgules (pour des valeurs de la forme "aaa,bbb,xxx,yyy,zzz,123,etc" dans chaque élément de la liste).


Est-ce plus clair pour toi ?

N'hésite pas à mener quelques essais, faire quelques tris ... disposer d'un langage interprété minimise le coût des essais nécessaires pour comprendre le fonctionnement de ses structures ... on peut tester et voir tout de suite comment ça fonctionne (ou pas).


Bon courage.

[LeRoiDesLutins]

Merci, je vais étudier tout ça (c'est chaud quand même ). J'ai plutôt l'habitude de Matlab et du Fortran... ça me change

[djibril]

bienvenu dans ce beau monde de perléens

[LeRoiDesLutins]

Bien merci, je crois que j'ai à peu près compris la philosophie de la chose :o

Je pense que j'ai trouvé la soluce !!



Pour ceux que ça peut aider -> pour trier un tableau à deux dimensions (désolé pour l'appelation contre-perl-culture ) du type "$tab2D[$i][$j] = $x" sur la première colonne (indice 0) par exemple :

Code :

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

@tab2D = sort { @$a[0] <=> @$b[0] } @tab2D;