récupérer les doublons d'un tableau

voilà, je vous explique:
j'ai des énormes fichiers avec un nombre conséquent de colonnes. je voudrais donc les stocker dans des bases de données pour me faciliter la vie. je voudrais mettre un certain type de colonnes en clé primaire. pour cela, j'aimerais vérifier que le contenu est unique.
j'ai mis ces valeurs dans un tableau et je voudrais donc récuperer celles, s'il y en a, qui sont redondantes.
j'ai vu le thread suivant
http://www.developpez.net/forums/sho...e+dans+tableau, mais il ne répond pas directement à ma question. l'un d'entre vous aurait-il déjà développé un "truc"?

Tu dis vouloir "récupérer les valeurs redondantes", mais ne veux tu pas plutôt les supprimer de ton tableau ?

Voici toujours un code qui renvoie une liste des doublons (ou plus) d'une autre liste :

Code:

---

1 2 3 4 5 6 7 8 9

sub doublons { my %temp; my @doublons; foreach (@_){ push @doublons, $_ if $temp{$_}++ == 1; } return @doublons; }

---

--
Jedaï

merci jedai,
j'avais déjà une fonction permettant de supprimer les doublons.
Mais sur ce cas, j'avais surtout besoin de les recupérer.
Sinon peux tu expliquer ton code, surtout cette ligne :

Code:

---

push @doublons, $pp if $temp{$pp}++ == 1;

---

surtout

Code:

---

$temp{$pp}++ == 1;

---

Merci

Code:

---

1 2 3 4

foreach (@_){ push @doublons, $_ if $temp{$_}++ == 1; }

---

Dans la boucle foreach (@_), $_ prend successivement la valeur de chacun des éléments de @_. $temp{$_}++ met la valeur associé à $_ à i+1 et renvoie i, sachant que l'on considère que i est à 0 lorsqu'il n'a pas encore été initialisé. Donc la première fois que tu rencontres un élément a dans la liste @_, $temp{a} est mis à 1 et le push n'est pas exécuté (car 0 != 1), la deuxième fois qu'on rencontre a, le push est exécuté. Les fois suivantes il ne l'est plus. Donc au final on a tous les doublons en un exemplaire dans @doublons.

--
Jedaï

ok, je te remercie de ton explication!
à moi de jouer maintenant :pc:!