Discussion :

[Arioch]

Hello, c'est encore moi !

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 :

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

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 :

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

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 :

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

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 :

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

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

[Arioch]

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 :

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

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 :

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

1
2
3
4
5
 
0.563
0.563
0.563
0.563

[pospos]

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 :

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

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;

[Arioch]

Merci Pospos, t'es un vrai pro !!

Code :

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

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 :

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

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 !

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 ?

[pospos]

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

[Arioch]

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

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

Voila un problème de réglé !