Discussion :

[piregwan]

Bonjour,

J'ai un tableau à deux dimensions comme ca :

Code :

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

1
2
3
4
5
 
 $tab_logins{Piregwan} = 17;
 $tab_logins{Nudrema} = 4;
 $tab_logins{Sylozof} = 150;
 $tab_logins{Gom} = 1;

Je voudrais le trier sur les valeurs, pour qu'il soit dans cet ordre :

Code :

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

1
2
3
4
5
 
 $tab_logins{Gom} = 1;
 $tab_logins{Nudrema} = 4;
 $tab_logins{Piregwan} = 17;
 $tab_logins{Sylozof} = 150;

Avez vous une idée ? Merci !

David

[2Eurocents]

Bonjour,

J'ai un tableau à deux dimensions comme ca :

Code :

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

1
2
3
4
5
 
 $tab_logins{Piregwan} = 17;
 $tab_logins{Nudrema} = 4;
 $tab_logins{Sylozof} = 150;
 $tab_logins{Gom} = 1;

Ce n'est pas un tableau, mais une table de hachage, ou liste hachée.

Les tableaux sont indicés par des nombres et l'indice s'y exprime entre crochets (et en plus, le sigill des tableaux est un @ alors que celui des hachages est un %)

Une liste hachée n'a qu'une "dimension" ...

Par contre, c'est vrai qu'il y a deux "expressions" de son contenu : les valeurs et les clefs.

Je voudrais le trier sur les valeurs, pour qu'il soit dans cet ordre :

Code :

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

1
2
3
4
5
 
 $tab_logins{Gom} = 1;
 $tab_logins{Nudrema} = 4;
 $tab_logins{Piregwan} = 17;
 $tab_logins{Sylozof} = 150;

On ne peut pas trier une liste hachée. C'est perl qui décide de l'ordre des valeurs en mémoire. Cet ordre est innaccessible au programmeur et permet au langage de retrouver efficacement les données.

Par contre, on peut quand même faire un affichage trié du contenu des valeurs.

Ce tri peut porter soit sur l'ordre des clefs, soit sur l'ordre des valeurs.

Pour faire ce tri, on trie les clefs de hachage selon notre critère, puis on affiche toutes les valeurs dans l'ordre de tri des clefs :

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
25
26
27
28
#!/usr/bin/perl
 
use strict;
use warnings;
 
my %tab_logins;
 
$tab_logins{Piregwan} = 17;
$tab_logins{Nudrema} = 40;
$tab_logins{Sylozof} = 150;
$tab_logins{Gom} = 1;
 
my @ordre;
 
print "Ordre Arbitraire : ";
@ordre = keys (%tab_logins);
print $_."/".$tab_logins{$_}."   " foreach (@ordre);
print "\n";
 
print "Ordre des clefs : ";
@ordre = sort keys (%tab_logins);
print $_."/".$tab_logins{$_}."   " foreach (@ordre);
print "\n";
 
print "Ordre des valeurs : ";
@ordre = sort { $tab_logins{$a} <=> $tab_logins{$b} } keys (%tab_logins);
print $_."/".$tab_logins{$_}."   " foreach (@ordre);
print "\n";

[piregwan]

Merci beaucoup pour la réponse très rapide !

En visitant la FAQ, je m'étais orienté vers la meme solution. Ca donne ca :

Code :

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

1
2
3
4
5
6
7
 
my @liste = sort ( { $tab_logins{$b} <=> $tab_logins{$a} } keys(%tab_logins) );
foreach my $clef (@liste)
{
        print $clef;
        print $tab_logins{$clef};
}

tout ca pour faire ca : http://www.piregwan.com/webmail/conditions.php#logins

[2Eurocents]

...
tout ca pour faire ca : http://www.piregwan.com/webmail/conditions.php#logins

Joli 8)

N'oublie pas de déposer le tag [Résolu] sur le sujet, en utilisant le bouton du même nom, en bas à gauche, quand tu visualises l'enfilade