Trouver éléments différents d'une liste

Bonjour,

Comment faire pour trouver le nombre d element distinc d une lsite ?

par exemple j ai : @liste('pomme','poire','banane','poire','pomme','cerise');

J aimerais qu'il me retourne 4 parceque il y a 4 fruits différents.

Merci,


Mimiche

Citation:

---

Envoyé par Mimiche

Bonjour,

Comment faire pour trouver le nombre d element distinc d une lsite ?

par exemple j ai : @liste('pomme','poire','banane','poire','pomme','cerise');

J aimerais qu'il me retourne 4 parceque il y a 4 fruits différents.

Merci,


Mimiche

---

Bonjour,

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

use strict; use warnings;   my @liste = ('pomme','poire','banane','poire','pomme','cerise'); my %count;   foreach(@liste) { ++$count{$_}; }   print "nombre de fruits différents = ", scalar(keys %count), "\n";

---

Et voilà ;)

Merci,

Ca marche nickel...