Discussion :

[mitch08]

Bonjour à tous,

Je viens vous solliciter car je n'arrive pas à trouver la solution.
J'aimerais trier un tableau:

Tableau actuelle:

my @tab = ("toto","titi","toto","tata","toto","tata");

Tableau voulu:

my @tab = ("toto","toto","toto","tata","tata","titi");


Merci d'avance pour votre aide!!

[Philou67430]

Ahem... tu as un peu cherché dans la doc

Code :

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

1
2
my @tab = ("toto","titi","toto","tata","toto","tata");
my @sorted_tan = sort @tab;

[mitch08]

Mais là ça trie par ordre alphabétique:

Avant: toto titi toto tata toto tata
Après: tata tata titi toto toto toto

J'ai besoin que ça classe par nbre d'occurence:

Après: toto toto toto tata tata titi

[BufferBob]

salut,

je propose :

Code :

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

1
2
3
4
5
6
7
my @tab = ("toto","titi","toto","tata","toto","tata");
my @tab2, my %hash;
 
foreach my $i (@tab) { $hash{$i}++; }
foreach my $i (sort { $hash{$b} <=> $hash{$a} } keys(%hash)) {
    push @tab2, ($i) x $hash{$i};
}

(y'a peut-être mieux je ne suis pas du tout expert Perl)

[Philou67430]

Ooops... j'ai regardé trop vite le résultat attendu.
Mais à ma décharge, tu aurais pu écrire explicitement l'ordre de tri plutôt que de le laisser deviner

La solution de BufferBob est celle à retenir.

[mitch08]

Toujours plus expert que moi

Merci! ça fonctionne nikel!

[Philou67430]

Juste une remarque :

Code :

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

my (@tab2, %hash);

[mitch08]

Ooops... j'ai regardé trop vite le résultat attendu.
Mais à ma décharge, tu aurais pu écrire explicitement l'ordre de tri plutôt que de le laisser deviner

La solution de BufferBob est celle à retenir.

Oui dsl je l'avais juste mis ds le titre
Merci qd même de ton aide

[Philou67430]

Bon, je remballe mon caquet ...

En règle générale, les traitements utilisant un nombre d'occurrence de "choses" ou cherchant à uniciter^* une liste sont réalisés à l'aide d'un hash.

^* uniciter : francisation de la commande Unix uniq (rend unique les éléments d'une liste)

[BufferBob]

Juste une remarque :

Code :

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

my (@tab2, %hash);

justement je me posais la question tout à l'heure, merci

^* uniciter : francisation de la commande Unix uniq (rend unique les éléments d'une liste)

ce serait donc plutôt "uniquer" (à conjuguer sans modération)

[Philou67430]

A pardon, uniquifier ...

[Lolo78]

Personnellement, je dirais plutôt dédoublonner.