Discussion :

[rimenis]

Bonjour ,
Je viens de poster mon problème encore une fois car j'ai pas réussi à trouver une solution , en fait j'ai un fichier qui contient les lignes suivants:
bonjour
bonsoir
madame
bonjour
Mon but est de supprimer les doublons alors j'ai utilisé ce 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
21
22
23
24
25
 
open(F,'E:\\Script\\IN.txt') or die ("Erreur d'ouverture ") ;
open(FIC,'>E:\\Script\\OUT.txt') or die ("Erreur de creation ") ;
 
@Ti = <F>;
 
 
  my @unique = ();
  my %dejavu = ();
  chomp(@Ti);
  foreach my $elem ( @Ti )
    {
	  chomp($elem );
 
      next if $dejavu{ $elem }++;
 
      push @unique, $elem;
    }
 
  foreach my $val ( @unique ) 
    {
 
	   print FIC "$val\n"; 
 
	}

le résultat est :

bonjour
bonsoir
madame
bonjour

Le problème est qu'il ya ajout des caractères dans les 2 bonjour de telle façons ils n'apparaissent pas identiques...
D'ou vient ce problème??
Merci de me répondre

[bougnbie]

Je n'ai pas regardé ton code, mais tu peux passer par la commande uniq :

Code :

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

uniq fic.txt > resultat.txt

Et ton fichier resultat.txt ne contient pas de doublons.

[Lolo78]

Non, comme je te l'ai dit sur l'autre post, le problème est que tu ne remplis jamais le hash %dejavu, alors que c'est cela qui te permet de savoir si tu as déjà vu un élément.

Essaie l'un des deux algos que je t'ai donnés sur l'autre post, ça devrait marcher.

[rimenis]

C'est encore le meme problème meme avec l'algorithme que tu m'a donné
en fait voila mes données en entreé:
bonjour
bonsoir
bonsoir
madame
bonjour
madame

et voila la sortie de programme :
madame
bonsoir
bonjour
bonjour

je pas réussi à savoir pourquoi il y a ajout des caractères au mot bonjour et comment résoudre ce problème ??