salut a tous
j'ai écrit un script perl qui "normalement" ouvre un fichier et supprime les répetions des ligne... c'est un peu compliqué a expliquer ,je donne un exemple ;
le fichier est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
a   blalalalalla 
a ffffff 
fdd eeeeeeeeeee 
fdd    eeeeeeeee 
ff azerty 
f  azerty
les répétitions ici sont dans la premiére partie de chaque ligne or avent au moins 1 espace exp: a dans ligne 1 et a dans ligne 2 il dois supprimer une des deux ligne '' c'est une repetition' et aussi pour "fdd"
mais pa ff et f ce n'est pas la meme ligne
le script dois me donner un fichier en sortie ne contenant pas de repetitions .
voici mon scropt qui ne fonctionne pas ,
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
open(FILE1,"</work//trans") or die"open: $!";
open(FILE2,">/work/rsrc/dictionnaire") or die"open: $!";
my($linei,$linej,$moti,@phonesi,$motj,@phonesj);
while( defined( $linei = <FILE1> ) )
{    ($moti,@phonesi)= split(/\s/,$linei);  
    print(FILE2 "$linei");
    if (defined ($linej = <FILE1>))
    {($motj,@phonesj)= split(/\s/,$linej);
        if ( ($motj eq $moti) && ($motj !~ m/\(/) && ($moti !~ m/\(/) && (@phonesj ne @phonesi) )
    {print "$linei";    print "$linej";
        }
        else
        {            
        }
    }
}
close(FILE1);
close(FILE2);
merci de corriger mon script ou en bref je veux de l'aide