Suppression de doublons dans un tableau

**Didi34** · 02/12/2008, 17h40

Bonjour a tous, je sais que cette question a déjà été posé mais je n'arrive pas appliquer les differentes ressources sur Google ou sur Developpez.com

Est -ce que quelq'un peut m'aider?
J'enregistre un fichier dans un tableau et je veux supprimer tout les mots identiques (doublons) présents à l'interieur avant de faire un traitement sur chaque mot.
Voici mon code:

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
 
#Fonction pour supprimer les doublons d'un fichier
sub doublons_grep {
  my %hash_sans_doublon;   
  return grep {! $hash_sans_doublon{$_}++ }@_;
}
 
#------------------------------------------------------------
#------Programme Principal
#------------------------------------------------------------
my @tab;						
my $MaxFile = 3;						
for (my $NumFile=1;$NumFile<=$MaxFile;$NumFile++)
{
    my @temp = Ouvrir_Fichier("File".$NumFile.".txt");			 
    my @lignes_fichierCompare = doublons_grep(@temp);
             ##########
	#TRAITEMENT
             ##########
}

Merci de vos lumieres!

**iblis** · 02/12/2008, 18h07

On peut sûrement faire plus court.

Code :

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

1
2
3
my @words = qw(un deux trois deux quatre);
my %h = map { $_, 0} @words;
@words = keys %h;

**iblis** · 02/12/2008, 19h30

En fait, je préfère ta solution

: elle préserve l'ordre.

**djibril** · 02/12/2008, 19h52

non, je pense pas que l'ordre sera toujours gardé :

Code :

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

1
2
3
 
my %unique;
@words = grep {! $unique{$_}++ } @words;

**iblis** · 02/12/2008, 20h41

J'aurais cru que la solution avec le grep (la tienne et la sienne sont identiques n'est-ce pas ?) conservait l'ordre. La mienne non bien entendu, c'est pour cela que sa solution me paraissait meilleur. Je me trompe ?

Mais on ne sait toujours pas quel est le problème, puisqu'il a avait déjà une solution.

**Didi34** · 03/12/2008, 09h49

Salut tout le monde merci pour vos infos mais quelqu'un peut répondre à mon problème

Merci

**Jasmine80** · 03/12/2008, 10h35

Envoyé par Didi34

J'enregistre un fichier dans un tableau et je veux supprimer tout les mots identiques (doublons) présents à l'interieur avant de faire un traitement sur chaque mot.

Comme l'a fait remarquer Iblis

Envoyé par iblis

Mais on ne sait toujours pas quel est le problème, puisqu'il a avait déjà une solution.

Salut tout le monde merci pour vos infos mais quelqu'un peut répondre à mon problème

Pourrais-tu le redéfinir clairement étant donné que les solutions apportées ne semblent pas te convenir?