Tri multiple (programmeur Perl pas doué inside)

Version imprimable

Hello, c'est encore moi ! :mouarf:

Je dois trier diverses statistiques selon plusieurs critères et dans un certain ordre donné. J'ai essayé plusieures choses mais c'est moche et le tri est partiellement fait. De facto, je dois bidouiller à la main après chaque traitement.

En fait, j'ai des données sous cette forme suivante :
Code:

1 2 3 4 Produit1, nb1, nb2, nb3, nb4, ratio Produit2, nb1, nb2, nb3, nb4, ratio Produit3, nb1, nb2, nb3, nb4, ratio
Je dois afficher l'ensemble des produits de la liste. Le tri doit se faire selon les critères suivants :

- en premier, le ratio en décroissant
- nb1 en décroissant
- nb3 en décroissant
- nb2 en croissant
- nb4 en croissant

Par exemple, pour une liste non ordonnée :
Code:

1 2 3 4 5 6 produit1,107,83,3,10,0,563 produit2,107,83,2,5,0,563 produit3,107,83,3,1,0,563 produit4,60,24,0,0,0,714 produit5,80,64,1,0,0,555
Le tri devrait donner ceci (données tabulées pour un affichage + clair) :
Code:

1 2 3 4 5 6 7 nb1 nb2 nb3 nb4 ratio produit4 60 24 0 0 0,714 produit3 107 83 3 1 0,563 produit1 107 83 3 10 0,563 produit2 107 83 2 5 0,563 produit5 80 64 1 0 0,555
Ces données sont chargées dans un hash de hash qui a cette forme là :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 my %produit; $produit{produit1}->{nb1} = 107; $produit{produit1}->{nb2} = 83; $produit{produit1}->{nb3} = 3; $produit{produit1}->{nb4} = 10; $produit{produit1}->{ratio} = 0.563; $produit{produit2}->{nb1} = 107; $produit{produit2}->{nb2} = 83; $produit{produit2}->{nb3} = 2; $produit{produit2}->{nb4} = 5; $produit{produit2}->{ratio} = 0.563;
En passant par une boucle foreach, qui peut me montrer un sort avancé me permettant de faire ce tri SVP ?

PS : actuellement, mon code est une horreur :aie: . J'ai un hash stockant en tant que clés les différents ratios de la liste à traiter. Je fais donc un premier foreach sur les valeurs décroissantes des clés/ratios pour ensuite faire mon tri mais le tri suivant est en bordel couvré, je n'y arrive pas comme je veux.

J'ai essayé ça mais ça ne marche bien évidemment pas. Je suis quasi sûr qu'il s'agit de boucles foreach imbriquées les unes les autres mais dur dur !

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
 
use strict;
 
my %produit;
 
$produit{produit1}->{nb1} = 107;
$produit{produit1}->{nb2} = 83;
$produit{produit1}->{nb3} = 3;
$produit{produit1}->{nb4} = 10;
$produit{produit1}->{ratio} = 0.563;
 
$produit{produit2}->{nb1} = 107;
$produit{produit2}->{nb2} = 83;
$produit{produit2}->{nb3} = 2;
$produit{produit2}->{nb4} = 5;
$produit{produit2}->{ratio} = 0.563;
 
foreach my $tri1(sort { $produit{$b}->{ratio} <=> $produit{$a}->{ratio} } (keys %produit))
{
    foreach my $tri2(sort { $produit{$b}->{nb1} <=> $produit{$a}->{nb2} } (keys %produit))
    {
        print "$produit{$tri2}->{ratio}\n";
    }
}

M'affiche des cochonneries :

Code:

je ne suis pas sur d'avoir tout compris à ton probleme, mais pourkoi ne fait tu pas plusieurs test dans ta sort sub?

genre (au pif au niveau des tests, juste pour voir l'enchainement) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 
sort {
  ($produit{$b}->{ratio} <=> $produit{$a}->{ratio}) # ratio decroissant
  ||
  ($produit{$b}->{nb1} <=> $produit{$a}->{nb1}) # nb1 decroissant
  ||
  ($produit{$b}->{nb3} <=> $produit{$a}->{nb3}) # nb3 decroissant
  ||
  ($produit{$a}->{nb2} <=> $produit{$b}->{nb2}) # nb2 croissant
  ||
  ($produit{$a}->{nb4} <=> $produit{$b}->{nb4}) # nb4 croissant
 
} keys %produit;

Merci Pospos, t'es un vrai pro !! ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
foreach (sort {
  ($produit{$b}->{ratio} <=> $produit{$a}->{ratio}) # ratio decroissant
  ||
  ($produit{$b}->{nb1} <=> $produit{$a}->{nb1}) # nb1 decroissant
  ||
  ($produit{$b}->{nb3} <=> $produit{$a}->{nb3}) # nb3 decroissant
  ||
  ($produit{$a}->{nb2} <=> $produit{$b}->{nb2}) # nb2 croissant
  ||
  ($produit{$a}->{nb4} <=> $produit{$b}->{nb4}) # nb4 croissant
 
} keys %produit)
{
    printf("%10s ", $_);
    printf("%3d %3d %3d %3d ",$produit{$_}->{nb1},$produit{$_}->{nb2},$produit{$_}->{nb3},$produit{$_}->{nb4});
    print "$produit{$_}->{ratio}\n";
}

Et ça m'affiche :

Code:

1
2
3
4
5
6
 
produit4  60  24   0   0 0.714
produit3 107  83   3   1 0.563
produit1 107  83   3  10 0.563
produit2 107  83   2   5 0.563
produit5  80  64   1   0 0.555

Exactement ce que je cherchais !

Citation:

Envoyé par pospos

je ne suis pas sur d'avoir tout compris à ton probleme, mais pourkoi ne fait tu pas plusieurs test dans ta sort sub?

Des tests ? Comment ça ?

18/07/2006, 12h13
pospos

ben les test c'est les <=>, enchainés par des ||
18/07/2006, 12h47
Arioch

Citation:

Envoyé par pospos

ben les test c'est les <=>, enchainés par des ||

Ok, en fait je ne suis pas coutumier des tests logiques dans ce genre de boucle foreach :D

C'est d'ailleurs bien pour ça que j'ai demandé de l'aide ;)

Voila un problème de réglé !