Discussion :

[falco-]

Bonjour,
dans un fichier du type :
aaa
bbbbb
ccccc
aaa
aaaa

il s'agit d'enlever les doublons.
Il faudrait à priori (?) passer par une table de hachage.
J'ai essayé :

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
open(FILE,"$path/toto");
while(<FILE>)
{
push @TdT, [ split('\n', $_) ];
}
my %hachage = @TdT;
my @uniques = keys %hachage;
 
 
# affiche le tableau de hachage hachage
foreach my $k (@uniques)
{
print "Clef=$k Valeur=$hachage{$k}\n";
print "Valeurxx=$TdT[$hachage{$k}]\n";
 
}
 
# ---> ne donne pas les valeurs
 
 
 
foreach my $t (@TdT)
{ next if $deja_vu{$t}++;
push(@uniques,$t);
}
# --> ceci ne marche pas non plus !
# affiche le tableau uniques
for $aref ( @uniques ) {
print "@$aref\n";
}
# j'obtiens les mêmes données que fichier toto avec les doublons !
 
 
et !!!!
for $i ( 0 .. $#TdT ) {
$objet = $TdT[$i][0];
print "elt $i is $objet \n";
print DOUBLONS @uniques ;
print DOUBLONS "\n" ;
}

#--> ne marche pas non plus !


Je pense qu'il y a plus simple !

Merci pour vos lumières.

[Arioch]

Hello,

bon déjà, tu aurais utilisé les balises CODE # pour mettre mieux en page ton code, ça nous aurait été plus agréable à l'oeil

Mais bon, on fera avec (ou plutôt sans)

Le code ci-dessous se charge de stocker tes données directement dans un hachage. Utile si l'ordre de tes données n'a pas d'importance ET si tu ne souhaites pas te soucier des valeurs trouvées plus d'une fois.

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
use strict;
use warnings;
 
my $Fichier = "ton_fichier.txt";
my %Unique;
 
open(IN, $Fichier) or die("err lecture $Fichier : $! \n");
while(<IN>)
{
    chomp();
    ++$Unique{$_};
}
close(IN);
 
foreach(keys %Unique)
{
    print "valeur $_ trouvée $Unique{$_} fois\n";
}

[falco-]

Re-bonjour,
Merci beaucoup
Apparemment je n'avais pas tout compris dans les tables de hachage ...
Le code est d'apparence simple !
A+

[icer]

Code :

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

1
2
3
4
5
6
 
while(<IN>)
{
    chomp();
    ++$Unique{$_};
}

Un peu ésotérique...

Mais qu'est-ce que c'est beau !

[falco-]

Bonjour,
le code n'est pas de moi !
mais de
Arioch
Membre émérite
Cordialement