perl doublon fichier Fermé

Question

Bonjour,
dans un fichier du type :
aaa
bbbbb
ccccc
aa
aaaa

il s'agit d'enlever les doublons.
Il faudrait à priori (?) passer par une table de hachage.
J'ai essayé :
open(FILE,"$path/toto");
 while(<FILE>)
     {
     push @TdT, [ split('
', $_) ];
     }
my %hachage   = @TdT;
my @uniques = keys %hachage;


# affiche le tableau de hachage hachage
 foreach my $k (@uniques)
{
   print "Clef=$k Valeur=$hachage{$k}
";
   print "Valeurxx=$TdT[$hachage{$k}]
";

   }

# ---> 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
";
              }
# 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 
";
                print DOUBLONS @uniques ;
                print DOUBLONS "
" ;
                }

#-->  ne marche pas non plus !


Je pense qu'il y a plus simple !

Merci pour vos lumières.

Forest · Answer

Le plus simple, 
open(FILE,"$path/toto");
my @uniques;
foreach my $ligne (<FILE>) {
my $flag = 1;
foreach my $valeur (@uniques) {
if ($valeur eq $ligne) {
$flag = 0;
}
}
if ($flag) {
push (@uniques,$ligne);
}
}
close FILE;
Et tu obtiens le tableau @uniques qui contient les lignes sans doublons...

Forest · Answer

Qui est encore simplifiable :p

#!/usr/bin/perl 
use strict;use warnings; 

my %h; 
open LIRE,"unique.txt" or die "E/S : $!
"; 

print "$_" for grep { ! $h{$_}++ } <LIRE>; 
__END__

Perl doublon fichier

2 réponses

Discussions similaires